#!/usr/bin/perl
require "blendcommon.cgi";

use File::Copy;

print "Content-type: text/html\n\n" ;





&chugCGI(*input);

$linkto = $input{"linkto"};



if($linkto =~ /\d*\.\d*\.\d*\.\d*\.\d*\.\d*/){
    ($title,$author) = foo($linkto);
    $link = qq([["$title":$linkto]]);
}



open(READ,"feedback.html");
while(defined($line=<READ>)){
    $buffer .= $line;
}
close READ;

if($link ne ""){
$buffer =~ s/(\<\/textarea\>)/"$author, about $link:\n$1"/ei;
}
print $buffer;





sub foo{
    my($id)=@_;
    ($year,$mon,@rest) = split(/\./,$id);
    $filename = join(".",@rest);
    open(FILE,"$dirworks/$year/$mon/$filename.info");
    <FILE>;    
    my $username = <FILE>;  
    <FILE>;
    $title= <FILE>;

    chomp $title;
    chomp $username;

    if($title eq ""){$title = "<i>Untitled</i>";}

    $title =~ s/\"/\'\'/g;

    return ($title,$username);
}