#!/usr/bin/perl
###################################################################
#  Building a Web Site Index by Keywords to Search                #
#  with JavaScript SiteSearch Engine, see:                        #
#  http://members.tripod.com/~schick/sitesuche.html               #
#                                                                 #
#     Version 3.0 4Jun99, Perl Version 5.001 Win32                #
#       written by Arnold Schick (Copyright)                      #
#                                                                 #
#   This Perl script is free for domenstic use                    #
#   and is provided "as it is" (using at your own risk)           #
#                                                                 #
#  This Perl script >>start.cgi<< is to copy into                 #
#  your cgi-bin directory on your local machine                   #
#        (file: http://members.tripod.com/~schick/start.txt)      #
#    AND the related Perl script: key.cgi                         #
#        (file: http://members.tripod.com/~schick/key.txt)        # 
#    AND the related Perl script: spage.cgi                       #
#        (file: http://members.tripod.com/~schick/spage.txt)      #
#                                                                 #
#  The HTML document with a link and FORM element to get this     #
#  start page looks like                                          #
#                                                                 #
#  <FORM name="start" action="/cgi-bin/start.cgi" method="post">  #
#  <INPUT type=hidden name=anfang value="start Page">             #
#  </FORM>                                                        #
#<A HREF="javascript:document.start.submit();">get Start Page</A> # 
#                                                                 #
#                                                                 #
#  List of used files and names:                                  #
#                                                                 #
#  Names: Perl script     : start.cgi                             #
#         Perl script     : key.cgi                               #
#         Perl script     : spage.cgi                             #
#  call:  /cgi-bin/start.cgi from a FORM, method=post (s. above)  # 
#                                                                 #
#  note: this script create files which are to                    #
#        name within a FORM of that related                       #
#        HTML document, deleting of files is                      #
#        also possible.                                           #
#                                                                 #
#        Don't place this script into a public cgi-bin directory  #
#        on a public Web server, it's a maintain tool of          #
#        your own Web Site files on a local machine (PC)          #
#                                                                 #
#        if you use Apace Web server on WIN32, use the directive  #
#        #!perl in place of #!/usr/bin/perl at top of this script #
#                                                                 #
##################################################################
     ###################################################
     #        Please define a temporary file below:    # 
     #       there will be save paths and dir names    #
     ###################################################

$temp_file="c:\\tmp\\js_tmp.dat";

$content_length = $ENV{'CONTENT_LENGTH'};
read(STDIN, $posted, $content_length);

$posted =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$posted =~ s/\+/ /g;

@fields = split (/&/, $posted);

foreach $name (@fields) {
   ($n, $w) = split(/=/, $name);
    $tokens{$n} = $w;
}

if (($temp_file) and (-e $temp_file)) {
  open(INFILE, "<$temp_file");
    chomp;
    @allLines = <INFILE>;
  close(INFILE);

  if (@allLines) {
    foreach $line (@allLines) {
      $line =~ tr/\n\r\f\t\b/ /s;
      $line =~ tr/ //d;
      ($if, $lf, $sp) = split(/,/, $line);
      unshift(@indexfiles, $if); 
      unshift(@localfiles, $lf); 
      unshift(@serverpath, $sp);
    }
  }
} else { $indexfiles[0] = ("");
         $localfiles[0] = ("");
         $serverpath[0] = ("");
       }

@indexfiles = sort keys %{{map {$_,1} @indexfiles }};
@localfiles = sort keys %{{map {$_,1} @localfiles }};
@serverpath = sort keys %{{map {$_,1} @serverpath }}; 
 
print "Content-type: text/html", "\n\n";
print "<HTML>\n<HEAD>\n";
print "<META name=\"keywords\" content=\"Web Tools, Version with Server Savings\">\n";
print "<META name=\"Author\" content=\"Arnold Schick\">\n";
print <<PART1

  <SCRIPT language=javascript>
<!--
function checkOK() {
  if (!document.myForm.delindex.checked || document.myForm.index.checked) {
         return true;
  } else { ok = confirm("Would you really delete your index file:" + document.myForm.indexfile.value + " ?"); }
  if (ok) {
        if (document.myForm.appindex.checked) {
           document.myForm.appindex.checked = false;
        }
        return true;
  } else { return false;} 
}

function checkI() {

  if (document.myForm.index.checked) {
      document.myForm.index.checked = false;
  }
  if (document.myForm.delindex.checked) {
      document.myForm.delindex.checked = false;
  }
  return true;
}

function checkAppendFile() {
  
  if ( (document.myForm.index.checked) ) {
     if (!document.myForm.delindex.checked) {
        document.myForm.index.checked = confirm("Would you really overwrite your existing index file:" + document.myForm.indexfile.value + " ?");
        if (document.myForm.appindex.checked) {
           document.myForm.appindex.checked = false;
        }
     }
     return true;
  } else {
     if (document.myForm.index.checked) {
        if (document.myForm.appindex.checked) {
           document.myForm.appindex.checked = false;
        }
     }
     return true;
   }
} // na endlich, funktioniert dieses das da!

function  ch_dir() {
  var i = document.myForm.prev_dirname.selectedIndex;
  document.myForm.dirname.value = document.myForm.prev_dirname[i].value;
}
function  ch_indexfile() {
  var i = document.myForm.prev_indexfile.selectedIndex;
  document.myForm.indexfile.value = document.myForm.prev_indexfile[i].value;
}
function  ch_home() {
  var i = document.myForm.prev_home.selectedIndex;
  document.myForm.home.value = document.myForm.prev_home[i].value;
}

function submitForm() {

  if ( (!document.myForm.indexfile.value) &&
        (document.myForm.index.checked ||
         document.myForm.delindex.checked ||
         document.myForm.appindex.checked) ) {
           alert("missing Name of Index File");
           document.myForm.indexfile.focus();
   } else {
      if (document.myForm.dirname.value) {
         document.myForm.submit();
      } else { alert("missing Name of local Work Subdirectory");
           document.myForm.dirname.focus();
        }
     }
}  
    
//-->
</SCRIPT>
  <TITLE>Administrator Tool</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff" TEXT="#000000" LINK="#0000ff" VLINK="#551a8b">
<CENTER>
  <P>
  <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="6" width="98%">
    <TR>
      <TD><FORM name="myForm" ACTION="/cgi-bin/key.cgi" METHOD="POST">
	  <CENTER><FONT face="Veranda, Arial" size=+1>Web Site Tool: Administration of Files
	  for a Web Site</FONT></CENTER>
	  <TABLE BORDER="1" CELLSPACING="0" CELLPADDING="10" width="100%">
	    <TR>
	      <TD align=center><FONT face="Arial" color="steelblue"><B>List &nbsp;Keywords,
		Page Titles<BR>
		and &nbsp;Creates &nbsp;an &nbsp;Index &nbsp;File</B></FONT></TD>
	      <TD ID="h1" title="absolute path on your local machine where the Web files are stored"><FONT
		    face="Arial">Name of local Work Subdirectory:<BR>
		<INPUT TYPE="text" NAME="dirname" value="" MAXLENGTH="35"><FONT face="Arial" size="-2">&nbsp;&nbsp;&nbsp;absolute&nbsp;path</FONT><BR>
		<FONT face="Arial"><SMALL>
PART1
;
if (@localfiles and $temp_file) {
print "		<SELECT NAME='prev_dirname' SIZE='1' onChange='ch_dir()'>\n";
  foreach $option (@localfiles) {
    print "		<OPTION value='$option'>$option\n";
  }
  print "		</SELECT>\n";
} 
print <<PART2
		</SMALL></FONT>
		</TD>
	    </TR>
	    <TR>
	      <TD><fieldset><legend><FONT face="Arial">List Files:</legend><BR>
		<INPUT TYPE="radio" NAME="sort" VALUE="newest" CHECKED>newest first<BR>
		<INPUT TYPE="radio" NAME="sort" VALUE="oldest">oldest first<BR>
		<INPUT TYPE="radio" NAME="sort" VALUE="ABC">by alphabetical order<BR>
		<INPUT TYPE="radio" NAME="sort" VALUE="ZYX">by reverse alphabetical order<BR>
		<INPUT TYPE="radio" NAME="path" VALUE="server">+ server path
		<INPUT TYPE="radio" NAME="path" VALUE="local">+ local path
		<INPUT TYPE="radio" NAME="path" VALUE="no" checked>no
		path&nbsp;&nbsp;</FONT></fieldset>
		<p>
		<FONT face="Arial"><fieldset><legend>JavaScript
		<A HREF="http://members.tripod.com/~schick/sitesuche.html">SiteSearch</A> Index
		File:</legend><BR>
		<INPUT TYPE="checkbox" NAME="index" VALUE="on" onClick='return checkAppendFile()'>create
		and overwrite existing<BR>
		<INPUT TYPE="checkbox" NAME="appindex" VALUE="on" onClick='return checkI()'>append
		to existing Index File<BR>
		<INPUT TYPE="checkbox" NAME="delindex" VALUE="on" onClick='return checkOK()'>delete</FONT>
		<FONT face="Arial">existing Index File</FONT><BR>
		<BR>
		<FONT face="Arial">&nbsp;&nbsp;Name of Index File:</FONT><BR>
		<INPUT TYPE="text" NAME="indexfile" VALUE="" MAXLENGTH="38"><FONT face="Arial" size="-2">&nbsp;&nbsp;absolute&nbsp;path</FONT><BR>
		<FONT face="Arial"><SMALL>
PART2
;
if (@indexfiles and $temp_file) {
  print "		<SELECT NAME='prev_indexfile' SIZE='1' onChange='ch_indexfile()'>\n";
  foreach $option (@indexfiles) {
    print "		<OPTION value='$option'>$option\n";
  }
  print "		</SELECT>\n";
} 
print <<PART3
		 </SMALL></FONT>
		</TD>
	      <TD><TABLE border=3 CELLSPACING="0" CELLPADDING="8">
		  <TR>
		    <TD valign=top ID="h2" title="relative path on your Web Site where the Web files are resided">
		      <FONT face="Arial"> Name of Virtual Subdirectory<BR>
		      for your Web Files at the Web Server:<BR>
		      <INPUT TYPE="text" NAME="home" VALUE="" MAXLENGTH="26"><FONT face="Arial" size="-2">&nbsp;&nbsp;&nbsp;relative&nbsp;path</FONT><BR>
		      <FONT face="Arial"><SMALL>
PART3
;
if (@serverpath and $temp_file) {
  print "                      <SELECT NAME='prev_home' SIZE='1' onChange='ch_home()'>\n";
  foreach $option (@serverpath) {
    print "                      <OPTION value='$option' >$option\n";
  }
  print "                      </SELECT>\n";
} 
print <<PART4
			</SMALL><FONT face="Arial" size="-2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;always&nbsp;used&nbsp;on&nbsp;Index&nbsp;File</FONT></TD>
		  </TR>
		  <TR>
		    <TD><FONT face="Arial">Filetype: &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
		      &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
		      <INPUT TYPE="checkbox" NAME="all" VALUE="on">select all</FONT>
		      <CENTER>
			<SELECT NAME="ftype" SIZE="8" MULTIPLE> 
			<OPTION value="htm">&nbsp; htm 
			<OPTION value="html">&nbsp; html 
			<OPTION value="shtm">&nbsp; shtm 
			<OPTION value="shtml">&nbsp; shtml 
			<OPTION value="xhtml">&nbsp; xhtml 
			<OPTION value="cgi">&nbsp; cgi 
			<OPTION value="pl">&nbsp; pl 
			<OPTION value="zip">&nbsp; zip 
			<OPTION value="jar">&nbsp; jar 
			<OPTION value="z">&nbsp; z 
			<OPTION value="txt">&nbsp; txt 
			<OPTION value="doc">&nbsp; doc 
			<OPTION value="csv">&nbsp; csv 
			<OPTION value="dat">&nbsp; dat 
			<OPTION value="au">&nbsp; au 
			<OPTION value="wav">&nbsp; wav 
			<OPTION value="avi">&nbsp; avi 
			<OPTION value="jpg">&nbsp; jpg 
			<OPTION value="gif">&nbsp; gif 
			<OPTION value="sas">&nbsp; sas 
			<OPTION value="class">&nbsp; class &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
			<OPTION value="js">&nbsp; js 
			<OPTION value="tmp">&nbsp; tmp</SELECT>
		      </CENTER>
		      <P>
		      <FONT face="Arial">or Filetype:</FONT>
		      <INPUT TYPE="text" NAME="ftype" VALUE="" size=8 MAXLENGTH="8"><FONT face="Arial"
			  size="-2"><BR>
		      no wildcharacters</FONT></TD>
		  </TR>
		</TABLE>
		<P>
		</fieldset></TD>
	    </TR>
	    <TR>
	      <TD valign=bottom align=center><FONT face="Arial" size=-2><I>created by Arnold
		Schick</I></FONT></TD>
	      <TD align=right><FONT face="Arial">
		<INPUT TYPE=hidden name="temp_file" value="$temp_file">
		<INPUT TYPE=button value="   List   " onClick='submitForm()'>&nbsp;&nbsp;&nbsp;&nbsp;
		<INPUT TYPE=reset value="Reset">
		<INPUT TYPE=button value="Refresh" onClick='location.reload()'></FONT></TD>
             </FONT></TD>
	    </TR>
	  </TABLE>
	</FORM>
      </TD>
    </TR>
  </TABLE>
</CENTER>
<P>
<font face='Arial' size='-2'><A href='javascript:history.back()'>back</A>
</font><p align=right><font face='Arial' size='-2'>created with Perl Script written by Arnold Schick</font></p>
</body></html>
PART4
;

# finally, clean up, be sure for the next run:
$posted="";
################ End of this Perl Script #############################################