#!/usr/local/bin/perl
require "blendcommon.cgi";
PrintHeader();
require "blendiii.pl";



print<<__EOQ__;
<table width=100%><tr><td>
__EOQ__
PrintTop("view account");
print<<__EOQ__;
</td>
<td align="right">
<nobr><a href="/"><img src="/blimage/b1.gif" border=0 alt="blender home"></a><a href="/blend/addwork.html"><img src="/blimage/b2.gif"border=0 alt="submit work"></a><a href="/blend/latest.cgi"><img src="/blimage/b3.gif" border=0 alt="read latest"></a><a href="/blend/feedback.html"><img src="/blimage/b4.gif" border=0 alt="add message"></a><a href="/comments.cgi"><img src="/blimage/b5.gif" border=0 alt="read board"></a></nobr>


</td></tr>


</table>
__EOQ__


chugCGI(*input);
$userid =  $input{"id"};

#remove anything that's not a number
$userid =~ s/\D//g;

open(READ,"$diruser/$userid") || print "Could not open user file $!";
$username = <READ>;
<READ>;#password
<READ>; #private e-mail
$signupstamp = <READ>; chomp $signupstamp;
$pubmail = <READ>;

$pubmail =~ s/\./ dot /g;
$pubmail =~ s/\@/ at /g;

$chat = <READ>;

$url = <READ>;

chomp $url;
if($url ne ""){
    $url = qq(<a href="http://$url">$url</a>);
}

if($signupstamp ne ""){
    $signupdate = localtime($signupstamp);
} else {
    $signupdate = "???";
}
 
close READ;

open (READCOUNT,"$dircommentcount/$userid");
$commentcount = <READCOUNT>;
close READCOUNT;

if($commentcount == 0){
    $commentcount = "0 comments";
} else {if($commentcount == 1){
    $commentcount = "1 comment";
} else {
    $commentcount = "$commentcount comments";
}
    }

open(READFRONTPICK,"/home/kirkjerk/SITES/MAIN/DATA/data-loveblender/users/frontpicks/$userid");
while(defined($nextline=<READFRONTPICK>)){
    chomp $nextline;
    $frontpick{$nextline} = "on";
}
close READFRONTPICK;







print<<__EOQ__;
<table>

<tr><th align="right">Username:</th><td>$username</td><th></tr>
<tr><th align="right">Member Since:</th><td>$signupdate</td><th></tr>
<tr><th align="right">E-mail:</th><td>$pubmail</td><th></tr>
<tr><th align="right">URL:</th><td>$url</td><th></tr>
<tr><th align="right">Chat:</th><td>$chat</td><th></tr>
<tr><th align="right">Blender Board:</th><td>$commentcount</td><th></tr>
<tr><td></td><td>

</td></tr>
</table>
<br>
__EOQ__

($loginID,$longinName) = getUserFromSession();
if($userid == $loginID){
print <<__EOQ__;
<i>(<A href="updatesetup.cgi?id=$userid">Edit Your Account Info</a>)</i>
__EOQ__
}
    print<<__EOQ__;
<h2>Submissions</h2>
__EOQ__
    @worklines = ();
    open(LOG,"$dirpostlog/$userid");
while(defined($next=<LOG>)){
    push @worklines, $next;
}

close LOG;
foreach $next(reverse @worklines){

    chomp $next;
    ($id,$title, $author) = split(/\t/,$next);

    $id =~ /^(\d\d\d\d)\.(\d\d)\.(.*)$/;

    $seekid = $1.'/'.$2.'/'.$3.".info";

    open(READDESC, $dirworks."/".$seekid);
    <READDESC>;
    <READDESC>;
    <READDESC>;
     <READDESC>;
    $desc = <READDESC>;
    chomp $desc;
    close READDESC;

    if($desc ne ""){
	$desc=<<__EOQ__;
<table border=0>
    <tr><td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
    <td><i>$desc</i></td>
</td>
</table>
__EOQ__

	#$desc = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<i>$desc</i><br>";
    }

    if($author ne ""){ $author = "(by $author)";}
    ($year,$mon,$mday,@rest) = split(/\./,$id);
    $mon--;
    $month = getMonthName($mon);

    if($title eq ""){	$title = "<i>Untitled</i>";    }
    
    $pickinfo = "";
       $pickinfo = "<img src=\"/blimage/frontpicksmallblank.gif\" width=11 height=11>";
   if (defined( $frontpick{$id} )){
       $pickinfo = "<img src=\"/blimage/frontpicksmall.gif\" width=11 height=11>";
       $hasapick = 1;
}

    print<<__EOQ__;
$pickinfo    <a href="/blend/wv.cgi?id=$id">$title</A>  $author $year $month $mday<br>
$desc
__EOQ__

 


}
if($hasapick){
    print<<__EOQ__;
<br>
<i><img src="/blimage/frontpicksmall.gif" width=11 height=11> = Front Page Pick for the following month's edition</i>
__EOQ__
}