Files in this directory:

• delgado.php (6323 bytes)
• Earth Operations Central: Politics - A Nation of Cowards (37900 bytes)
• John Brennan Crutchley: A Real Vampire? (14312 bytes)
• Earth Operations Central: Cthulhu And Company (7087 bytes)
• A Declaration of the Independence of Cyberspace (6312 bytes)
• Strategic War . . . in Cyberspace (8774 bytes)
• Darkness (5957 bytes)
• Dark Alliance: Day One (27959 bytes)
• WashingtonPost.com: District of Columbia Government Plan (243084 bytes)
• experiment (173 bytes)
• DC Header Toolbar (3208 bytes)
• District Mutants: The "Changed". (3604 bytes)
• A Proposal for Linux for the District of Columbia Government (5287 bytes)
• DISTRICT OF COLUMBIA (12944 bytes)
• Science--de Lange, et al. (16073 bytes)
• Earth Operations Central: Dr. Jose M. R. Delgado (6116 bytes)
• Earth Operations Central: Dr. Jose M. R. Delgado (6114 bytes)
• Earth Operations Central: Delivery and Freight (2306 bytes)
• Are You Deserving? (8082 bytes)
• Desiderata (2612 bytes)
• dino_goth.html (4531 bytes)
• Earth Operations Central: Coping with Disability (3639 bytes)
• dismiss.html (138 bytes)
• TranceNet: Dissociation & Pseudo-Personality, 1 of 3 (24319 bytes)
• TranceNet: Dissociation & Pseudo-Personality, 2 of 3 (23951 bytes)
• TranceNet: Dissociation & Pseudo-Personality, 3 of 3 (22311 bytes)
• Webtop Widget (5240 bytes)
• Washington, DC -- TwentyFirst Century Capital Renewal (435722 bytes)
• Washington, DC, 2001 -- TwentyFirst Century Capital Renewal (185849 bytes)
• Washington, DC: Not a Pretty Site (or sight) (344909 bytes)
• Washington, DC, 1998: Not a Pretty Site (or sight) (341465 bytes)
• Washington, DC, Summer/Fall 1998: Not a Pretty Site (or sight) (119456 bytes)
• Washington, DC, Summer/Fall 1998: Not a Pretty Site (or sight) (45647 bytes)
• Washington, DC, Winter/Spring 1999: Renascence (372107 bytes)
• Earth Operations Central: District Government Jobs (3609 bytes)
• Earth Operations Central: Sanity: The Other Washington DC (6976 bytes)
• Earth Operations Central: Intelligence on the District War (22280 bytes)
• Earth Operations Central: Dope (3538 bytes)
• Quantum Fireball 1.2gig IDE Drive, Installed Slackware Linux, IDE controller board (6081 bytes)
• X Applications on the Web - Demo page. (614 bytes)
• Earth Operations Central: Make Your Roommate Psychotic! (repost) (70690 bytes)
• Earth Operations Central: Dupont Circle (19506 bytes)
• Earth Operations Central: Earth (Sol III, Terra, Homeworld) (29336 bytes)
• Earth Operations Central: Capital District Unit (3563 bytes)
• Welcome to Earth Operations Network! (1636 bytes)
• home.php~ (30724 bytes)
• earthops_java.html (1005 bytes)
• Metrorail System Map (304 bytes)
• Earth Operations Central (1555 bytes)
• HTTP Statistics for "http://earthops.net/klaatu/" (1694748 bytes)
• Earth Operations Central: (2372 bytes)
• In Darkness' District (1232 bytes)
• Earth Operations Central: Energy Production & Distribution (11776 bytes)
• Earth Operations Central: Entertainment and Diversions (4708 bytes)
• X Applications on the Web - Excel demo page. (610 bytes)
• TOP (1540 bytes)
• Earth Operations Central: Capital District Unit (5443 bytes)
• expand.html (361 bytes)
• expand_old.html (372 bytes)
• Earth Operations Central: The National Electronic TeleData System [NETS] (tm) (9024 bytes)
• Earth Operations Central: Medicine: Medical Facilities (3919 bytes)
• Earth Operations Central: Faith and Worship (7305 bytes)
• In The Fall: Part One (63664 bytes)
• In The Fall: Part Two (70287 bytes)
• In The Fall: Part Three (77516 bytes)
• GPO Gate, Catalog for GAO Reports (1173567 bytes)
• In The Fall: Part Four (64412 bytes)
• In The Fall: Part Five (90917 bytes)
• In The Fall: Part Six (60842 bytes)
• In the Fall: Part Seven (62323 bytes)
• In The Fall (84009 bytes)
• In The Fall: Part Nine (52195 bytes)
• alt.culture.vampyres website - gimme the FAQs (764 bytes)
• Earth Operations Central: Federal Vendors: Primarily Non-Military (4280 bytes)
• Earth Operations Central: Federalist v. Anti-Federalist (20497 bytes)
• Real Vampires (20632 bytes)
• Earth Operations Central: Fiction by T.J. Hardman, Jr. (8235 bytes)
• Earth Operations Central: HTML Files (19764 bytes)
• Results of a Survey of Online Militia Members (109987 bytes)
• In Darkness' District (1232 bytes)
• Earth Operations Central: Dynamic Fonts for Browsers (1792 bytes)
• Earth Operations Central: Eat, Drink & Be Merry! (2273 bytes)
• Wilson Forbrush -- Agent of Dimness (c) T. Jr. Hardman (11007 bytes)
• form.html (620 bytes)
• Instantaneous Introduction to CGI Scripts and HTML Forms (10/95) (30951 bytes)
• In Darkness' District (1232 bytes)
• Earth Operations Central: (4371 bytes)
• Z39.50 Gateway (2391 bytes)
• gene-employment.html (5553 bytes)
• Earth Operations Central: Geneology and Ancestor Search (4814 bytes)
• Implications of the Human Genome Project (2266 bytes)
• EROWID - GHB : Research (30962 bytes)
• [rootonly] # output: # generates all the ghindex.html files for all subdirectories ############################################################### # Location of httpd directory $GLIMPSEHTTP_HOME = "/home/ftp/pub/earthops_html"; # 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"; # description file, we try to find it in every directory $DESCFILE=".description"; # name of the index file $HTMLINDEX="ghindex.html"; # 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.html 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(