#!/usr/local/bin/perl require "blendcommon.cgi"; require "blendiii.pl"; PrintHeader(); my($trueid,$truename) = getUserFromSession(); chugCGI(*input); $id = $input{"id"}; $id =~ /^(.*?)\.(.*?)\.(.*)$/; $year = $1; $mon = $2; $rest = $3; $file = "$dirworks/$year/$mon/$rest.work"; open(READ,"$dirworks/$year/$mon/$rest.info"); $userid = ; chomp $userid; $username = ; chomp $username; $authorname = ; chomp $authorname; $title = ; chomp $title; $descrip = ; chomp $descrip; $kindofwork = ; chomp $kindofwork; close READ; $editlink = ""; if($userid eq $trueid){ $editlink = qq(- edit this work); } if($title eq "") { $title = "Untitled";} $gogo = <<__EOQ__; Comment on this Work
[[$id]] __EOQ__ print<<__EOQ__; $title | blender of love
__EOQ__ if($authorname eq ""){ print <<__EOQ__; By $username $editlink
__EOQ__ $aboutauthor = $username; } else { print <<__EOQ__; By $authorname
Submitted by $username $editlink
__EOQ__ $aboutauthor = $authorname; } $rest =~ /^(.*?)\./; $mday = $1; @months = ("Jan", "Feb","Mar","Apr","May","Jun","Jul", "Aug","Sep","Oct", "Nov", "Dec"); $month = $months[$mon-1]; print <<__EOQ__; Date: $year $month $mday
__EOQ__ print<<__EOQ__; $gogo

$title

__EOQ__ print "
"; open(BODY,"< $file"); while(defined($next=)){ print $next; } close BODY; print "
"; # facebook print<<__EOQ__;


__EOQ__