Essays by John Bugler

#!/usr/bin/perl ### Display all (or selected) files in directory. (+++ subdirs, too?) ### Display TITLE/ABSTRACT info. ### head.html and tail.html are also displayed. ######################################################################## ### Copyright (C) Tripodics.com ### Author: Bruce A. Martin ### File Name: select.pl ### Versions: ### 1.6 bam:2009/06/04 Bugler ### 1.5 bam:2004/06/23 Rename: select.pl - display list of files; click to modify ### 1.4a bam:2004 (Remove title, etc.) ### 1.4 bam:2004/02/27 PIX ### 1.3 bam:2004/02/22 HTML only. ### 1.2 bam:2004/02/22 Use tighter Regexp control. (Rename "abstract.pl") ### 1.1 bam:2004/02/22 Extract descriptions from HTML ### 0.0 bam:2003/11/20 ######################################################################### use strict; use CGI qw/:standard :newtag/; #?? use "_getargs.txt"; my $NL = "\n"; my $Q = '"'; print header; # html format is permitted to output. #### Try some tricks, from html(); head( title( "Abstracts" ) ); #print " Essays by John Bugler \n"; print "\n"; my $x; ### Get parameters from html form. # my %in_para; foreach (param()){ $in_para{$_} = join " ", param($_); # Multiple-values (checkbox) joined with blanks. } #### Set prefix to path. #### my $name = $ENV { 'COMPUTERNAME' } ; my $path = ""; #### Set file names. #### my $DIRNAME = $in_para{DIRNAME}; if ($DIRNAME =~ /^$/) { $DIRNAME="."; } my $dirname = $path . "./"; #if ($DIRNAME) { $dirname = $path . $DIRNAME . "/"; } if ($DIRNAME) { $dirname = $DIRNAME . "/"; } my $MAXLINES = $in_para{MAXLINES}; my $maxlines = $MAXLINES; if ($maxlines < 1) { $maxlines = 10; } my $head = $path . "head.html"; my $tail = $path . "tail.html"; ### Main processing # &show( $head ); &showdir( $dirname ); print "

\n"; my $s=''; $s .= '

'; $s .= " Directory.\n"; $s .= '
\n"; &show( $tail ); exit; ######## The following subroutines are from the Tripodics Library. ######## #### Copyright 1996-2002 by Tripodics, All Rights Reserved. #### #### Tripodics Computing Service, POBox 456 Middle Island, NY 11953 #### #+++ (Nonexclusive usage granted to PhDsigns, Bay Shore, NY.) +++# ############################################################################ ################################### show.pl # Print contents of an HTML file. # sub show( $f ) { #my $f = $path . @_[0]; my $f = $path . @_[0]; open(F,"$f") or return 0; while(){ print; } close(F); } sub showdir( $d ) { my $d = $path . @_[0]; my @allfiles; opendir(D,$d) or return 0; @allfiles = grep !/^\./, readdir D; closedir D; print "

#### allfiles= @allfiles
"; print "

Files in directory: $d

(Click on file name, to modify it.)

$f\n"; #if ( $f =~ /^\./ ) { next; } ## Hide the hidden files. #if ( $f =~ /^\// ) { next; } #if ( $f =~ /^~/ ) { next; } #if ( $f =~ /\.pl/i ) { next; } ## Hide the .pl files. #++++ Others to hide or skip?? my $ff=$f; $ff =~ s/^\.\///g; $ff =~ s/^[.\/~ ]*//g; # Delete leading dots and/or slashes (or blanks). print "

\n "; ## Special cases for html, gif, etc. if ( $f =~ /\.s*html*$/i or $f =~ /\.php$/i or $f =~ /\.txt$/i ) { print ""; print ""; print "$ff"; print "\n"; print "

"; if ( $f =~ /^index\./i ) {next;} ## Skip the index file. else { print "\n "; print "\n"; #print "Modify?"; print "

\n"; } } elsif ( $f =~ /\.gif$/i or $f =~ /\.png$/i or $f =~ /\.jpe*g$/i ) { print ""; print ""; print "$ff"; print "\n"; print "

"; print "

\n"; } else { print ""; print ""; print "$ff"; print "\n"; print "

"; } print "