Files in this directory:

• Ex-Cidera? (1143 bytes)
• test.mp3 (974667 bytes)
• testbox1-start.gif (15250 bytes)
• triangle-work.gif (10160 bytes)
• xclock (436 bytes)
• troll_aliases (774 bytes)
• ulclogo.gif (27437 bytes)
• unlogo.gif (745 bytes)
• Aspen Hill Network: Aspen Hill, Maryland (9405 bytes)
• wireless_tools.20.tar.gz (27542 bytes)
• xload (434 bytes)
• README.rus (726 bytes)
• zebra.cfg (352 bytes)
• apache_pb.gif (2326 bytes)
• human-clones1.pdf (625941 bytes)
• [rootonly] # output: # generates all the ghindex.html files for all subdirectories ############################################################### ### TJH4 hacked to produce a PHP file instead of HTML # Location of httpd directory $GLIMPSEHTTP_HOME = "/home/htdocs"; # This is URL path where the scripts are located... $CGIBIN = "cgi-bin"; # get the paths for perl and glimpse $GLIMPSE_LOC = "/usr/local/bin/glimpse"; #################################################################### # # # configuration below this line should be done by hand (if at all) # # # #################################################################### # default options for glimpseindex $GLIMPSEIDX_OPT = "-o"; # index template $MASTERTEMPLATE=$GLIMPSEHTTP_HOME."/ghtemplate.html"; # $TEMPLATE=".ghtemplate.html"; $TEMPLATE=".ghtemplate.php"; # description file, we try to find it in every directory $DESCFILE=".description"; # name of the index file # $HTMLINDEX="ghindex.html"; $HTMLINDEX="ghindex.php"; # name of config file $CONFIGFILE = "archive.cfg"; # name of config file $CRONFILE = "ghreindex"; # gif file $EYEGIF = ".gheye.gif"; ############################################## # # # no configuration is needed below this line # # # ############################################## # permission information $umaskval = umask(0022); # for executables $xmodval = 0755; $indexdir = $ARGV[0]; if(!$indexdir){ print "Directory not specified. Quitting.\n"; exit -1; } # try to change the directory to indexdir $oldpwd = `pwd`; $retval = chdir ($indexdir); if($retval==0){ print "Cannot change directory to $indexdir. Quitting.\n"; exit -3; } # get the 'real' path $indexdir = `pwd`; chop $indexdir; # open the config file open (CFG, "$indexdir/$CONFIGFILE") || die "Cannot open $indexdir/$CONFIGFILE: "; $line = ; ($title,$url,$subindex) = split("\t", $line); close(CFG); $archivename = $title; # set the variables BEFORE making the template $searchurl = "/".$CGIBIN."/aglimpse"; $indexdir_length = length($indexdir); # open TEMPLATE open(TEMPLATE, "$indexdir/$TEMPLATE") || die "Cannot open template file "."$TEMPLATE: $!\n"; # make the indices print "\n\nMaking index files...\n"; &make_ghindices($indexdir,$title); close(TEMPLATE); print "\n\nGeneration of ghindex.php files has been successfully completed.\n"; #change the dir back chdir($oldpwd); ############################################################################## ## Subroutines ############################################################################## sub make_ghindices { local($absdir,$title) = @_; local($file,$dirfiles,$dirsize,$totfiles,$totsize); local($thistitle,$OUT,$fileshere,$dirshere,$dir,$size); local(@files,@subdirs); $totfiles = 0; $totsize = 0; undef $dirshere; undef $fileshere; @subdirs = (); @files = (); # read the directory chdir($absdir); opendir(DIR,"$absdir"); print "In directory $absdir...\n"; file: while ($file=readdir(DIR)) { # skip the file if it starts with a '.' or is one of OUR config files next if $file =~ /^\./; # should we skip the html file? next if $file eq $HTMLINDEX; next if $file eq $CRONFILE; next if $file eq $CONFIGFILE; next if $file eq $TEMPLATE; if (-d $file) { # it's a subdir print " directory: $file\n"; push(@subdirs, $file); } else { next if (-l $file); # skip if it's a symbolic link # it's a file print " file: $file\n"; push(@files, $file); } } closedir(DIR); # process the files foreach $file (@files) { if ($file =~ m#htm[^/]*#i){ $desc{$file} = &gettitle("$absdir/$file"); } # get the size local($dev,$ino,$mode,$nlinsk,$uid,$gid,$rdev,$size) = stat("$absdir/$file"); $totsize += $size; # make the descriptions if($desc{$file}) { $thistitle = $desc{$file}; }else{ $thistitle = "$file"; } $thistitle .= " ($size bytes)"; $fileshere .= "
• ". "$thistitle\n"; } $totfiles = $#files+1; if($fileshere eq ""){ $fileshere = "
  No files in this directory.\n"; } # process the subdirs ### TO DO -- decide if this is the best way to do the subdirs foreach $dir (@subdirs) { $thistitle = $desc{$dir}; $thistitle = &gettitle("$absdir/$dir/index.html") if !$thistitle; $thistitle = &gettitle("$absdir/$dir/index.htm") if !$thistitle; # RECURSE ($dirfiles,$dirsize) = &make_ghindices("$absdir/$dir", $thistitle); $totfiles += $dirfiles; $totsize += $dirsize; if(!$thistitle){ $thistitle = "Subdirectory '$dir'"; } # add the number of files and file size to ALL directories $thistitle .= " ($dirfiles files, " if $dirfiles; $thistitle .= "$dirsize bytes)"; $dirshere .= "

  ". "$thistitle\n"; } if($dirshere eq ""){ $dirshere = "

  No subdirectories.\n"; } # check to make sure we should make the file # if we want the subdirs OR we're the root if($subindex==1 || $absdir eq $indexdir){ # set the $relpath to our directory $relpath = "/$indexdir_length$absdir"; # generate output if (!$title){ # we need to make a subdir title $subdir = substr($absdir, $indexdir_length); $title = "$archivename (directory: $subdir)"; } # changed from a 'die' to a 'warn' eval{ open(OUT,">$absdir/$HTMLINDEX"); }; if($@){ warn "Cannot open file ". "$absdir/$HTMLINDEX for writing: $!\n"; # return! return ($totfiles+1,$totsize); } # rewind the template seek(TEMPLATE,0,0); line: while(