$fields{'poem_title'} by $fields{'author

####################################### sub get_file_name { ####################################### $proc=$$; $newnum=time; $newnum=substr($newnum,4,5); $date=localtime(time); ($day, $month, $num, $time, $year) = split(/\s+/,$date); $month=~tr/A-Z/a-z/; $PREF = "$month$num-"; $id="$PREF$newnum$proc"; $FILE_NAME="$BASEDIR/$PREF$newnum$proc$EXT"; $URL_NAME="$BASEURL/$PREF$newnum$proc$EXT"; } ##

##

#######################################
sub poem_page {
#######################################

$poembody =<<__END_OF_POEM_BODY__;



$fields{'poem_title'} by $fields{'author_name'}




$BODYTAG
$params



 
 
 $fields{'poem_title'}
 
 
 
 
	
	
	 
	
	

	$fields{'poem_body'}
	
	
	 
	
	
 
 
 
 
	
	
	 
	
	- $fields{'author_name'}
	
	
	
 
 
 
 Copyright © 2003



 




__END_OF_POEM_BODY__
}