Essays

#!/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: abstract.pl ### Versions: ### 1.9 bam:2009/06/04 Bugler ### 1.6 bam:2007/07/23 Remove heading. (Use head.html) ### 1.5 bam:2006/01/20 Move head & tail to format/ ### 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 \n"; print "\n"; my $x; #print h1( {-align=>'right'}, "Goodbye" ); #print "

$x: "; #my $s = `ls $x`; #print ""; #print "$s"; #} #print "

\n"; ### 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}; my $dirname = $path . "./"; if ($DIRNAME) { $dirname = $path . $DIRNAME . "/"; } my $MAXLINES = $in_para{MAXLINES}; my $maxlines = $MAXLINES; if ($maxlines < 1) { $maxlines = 10; } my $head = $path . "format/head.html"; my $tail = $path . "format/tail.html"; ### Main processing # &show( $head ); &showdir( $dirname ); &show( $tail ); my $s=''; $s .= ''; #+++++ print $s; 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]; 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 "

Essays by ???? ????

'; #print ''; #print "$f"; ##--print "$f \n"; #print ''; ### Display file name and info ## #if ( -z $f ) { print "ZERO SIZE"; } if ( $f =~ /index.htm/i ) {next;} ## Special cases for html, gif, etc. if ( $f =~ /\.html*$/i ) { #print '
'; print "

'; # &showtext( $f, $max ); # print '

'; # print '

";
			while(){
				s/$_";
				if ($. >= $maxlines)
				{
					print ". . .";
					last;
				}
        		}
			print "

";
	while(){

	    if ( /]*>//g;	# Suppress tags.
		s/^\w*//;
		s/\w*#//;
		print '';
		print '';
		print "\n";
	    }
	    if ( /]*>//g;	# Suppress tags.
		s/^\w*//;			#???? BUG, HERE:  Must add a blank before title!!!
		s/\w*#//;
		print "      ";
		print '<A HREF="' . $f . '" TARGET=_blank>';
		print "$_";
		print '</A>';
		print "      ";
	    }
	    

	    if ( /<META.*TYPE=[\*]*BAM/i )
	    {
		print "<BR> +++++ <BR>";
	    }

		#### Display whatever (HTML) is found 
		# within <ABSTRACT> ... </ABSTRACT> tags.
		# (also DISPLAY, INDEX, etc.
		#
		if (! $mode) {
		  #--if ( /^.*<(ABSTRACT|DISPLAY|INDEX)[^>]*>/i ) {	# Tag found
		  $TAG = "ABSTRACT";
		  if ( /^.*<\Q$TAG\E[^>]*>/i ) {	# Tag found
			s///i;						# Discard tag.
			print "<UL><FONT COLOR=#${Q}006600$Q>";
			$mode = 1;					# Display mode ON.
		  }
		  $TAG = "DISPLAY";
		  if ( /^.*<\Q$TAG\E[^>]*>/i ) {	# Tag found
			s///i;						# Discard tag.
			print "<UL><FONT COLOR=#${Q}003333$Q>";
			$mode = 1;					# Display mode ON.
		  }
		  $TAG = "INDEX";
		  if ( /^.*<\Q$TAG\E[^>]*>/i ) {	# Tag found
			s///i;						# Discard tag.
			print "<UL><FONT COLOR=#${Q}333333$Q>";
			$mode = 1;					# Display mode ON.
		  }

		}
		if ($mode) {		# (NOTE:  Not elsif !!) #
		  #--if ( /<\/(ABSTRACT|DISPLAY|INDEX)[^>]*>.*$/i ) {	# Closing tag.
		  $TAG = "ABSTRACT";
		  if ( /<\/\Q$TAG\E[^>]*>.*$/i ) {	# Closing tag.
			s///i;						# Discard.
			$_ .= "</FONT></UL>\n";					# (Add BR at the end.)
			$mode = 0;					# Display mode OFF.
		  }
		  $TAG = "DISPLAY";
		  if ( /<\/\Q$TAG\E[^>]*>.*$/i ) {	# Closing tag.
			s///i;						# Discard.
			$_ .= "</FONT></UL>\n";					# (Add BR at the end.)
			$mode = 0;					# Display mode OFF.
		  }
		  $TAG = "INDEX";
		  if ( /<\/\Q$TAG\E[^>]*>.*$/i ) {	# Closing tag.
			s///i;						# Discard.
			$_ .= "</FONT></UL>\n";					# (Add BR at the end.)
			$mode = 0;					# Display mode OFF.
		  }
		  print;						# Now, print what's left.
		}
		  
		

#	    else {
#		s/<[^>]*>*//g;	# Suppress tags.
#		next if ( /^\s*$/ );
#		print "$_";
#		$lines--;
#		if ($lines < 0 )
#		{
#			print ". . .";
#			last;
#		}
#	    }
        }
	print "</PRE></OL>\n";
        close(F);
}

##############################  End of bamlib.inc  #############################

"; print ''; my $ff=$f; $ff =~ s/^\.\///; print ''; print "$ff"; print ""; #print "$f"; #--print "$f \n"; print ''; ## Display file name and info ## print "

"; print ''; &shownotags( $f, $max ); print ''; print "