#!/bin/sh # # Author F. Pelucchi, W. Grandegger # Modifyed by F.Murtas # ====== # # Date : 06-02-96 # ==== eval `/usr/local/http/bin/cgiparse -init` eval `/usr/local/http/bin/cgiparse -form` # eval `/www/WWW/bin/cgiparse -init` # eval `/www/WWW/bin/cgiparse -form` echo 'Content-type: text/html' echo ' List of KLOE memos

List of KLOE Memos

' docdir="/afs/kloe.infn.it/www/private/memos" httpdir="/kloe/private/memos" docfil="/afs/kloe.infn.it/www/private/memos/km.list" TYPE=m field="Title" key=" " awk 'function printit() { print "

"
	for(i=1;i"
	"echo `cd '"$docdir"'; ls k'"$TYPE"'"nr".* 2>/dev/null`" | getline ls; 
	close("echo `cd '"$docdir"'; ls k'"$TYPE"'"nr".* 2>/dev/null`")
	nls=split(ls,lsa)
	if (nls) 
          {
	  print ""
	  for (i=1;i<=nls;i++) print ""lsa[i]" " 
  	  }
#	else print "File k'"$TYPE"'"nr".* not found "
	found=0
        }

    BEGIN { first=1; found=0; search=0; nfound=0 } 

    END { if (found) printit(); if (nfound==0) print " 
No argument matched 
"} 

    /^[^\!]/ { 
	if ($1 ~ /^No/) 
          {

	  if (first) { first=0; n=1 } 
	  else { if (found) printit() }
	  n=1;
          nr=$NF
	  }
        if ( $1 ~ /^'"$field"'/ ) { search = 1 }
        else { if (search) if( $0 ~ /^[A-Za-z]/ ) search=0 } 
	if (search) 
          { 
	  k="'"$key"'";
	  if (i=index(tolower($0),tolower(k)) )
            {
            found=1
            nfound++
 	    kr=substr($0,i,length(k)); kn=""kr""
	    gsub(kr,kn)
	    }
	  }
        all[n++]=$0
        }' $docfil
#
echo ''
#
exit 0