#!/usr/local/bin/perl
require "blendiii.pl";

use CGI ':cgi-lib';
ReadParse(*input);


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

$file = "/home/kirkjerk/SITES/MAIN/loveblender.com/iii/digest.html";
$uri = "/home/kirkjerk/SITES/MAIN/loveblender.com/2007august/digest.html";

$dropdown = "/home/kirkjerk/SITES/MAIN/loveblender.com/dropdown.html";

$hitwhore = "/home/kirkjerk/SITES/MAIN/loveblender.com/hitwhore.txt";

require "blendiii.pl";



$surveyfile = "/home/kirkjerk/SITES/MAIN/DATA/data-loveblender/survey/current";



open(READ,$file);
@lines = <READ>;
$text = join("\n",@lines);
close READ;

open(READ,$dropdown);
@lines = <READ>;
$dropdowntext = join("\n",@lines);
close READ;

open(READ,"$hitwhore");
$hitwhoretext = <READ>;
close READ;





open(READ,$surveyfile);
$askid =  <READ>;
chomp $askid;
$ask = <READ>;
chomp $ask;
close READ;




$surveyguts=<<__EOQ__;

<font size=-1>
<b>Current Blender Survey:</b><br>
$ask<br>
<a href="/blend/surveyask.html">Your Response?</a>
/ <a href="/blend/surveyview.cgi?num=$askid">View Responses</a>

</font>

__EOQ__


$surveytable = <<__EOQ__;
<table align="right"><tr>
<td bgcolor="#dddddd" align="center" width=250>
$surveyguts
</td></tr>
</table>


__EOQ__







$oldcounter = <<__EOQ__;
since 1996.04.06
(via <a href = "http://www.digits.com">Web-Counter</a>)
<br> 
    <IMG SRC="http://counter.digits.com/wc/-d/7/-f/000000/-b/f4f4ff/-e/f4f4ff/Kirk_sBlenderofLove"
      WIDTH=105 HEIGHT=20 BORDER=0 HSPACE=4 alt =""><br>

__EOQ__










@months = ("january","february","march","april","may","june","july","august","september","october","november","december");

if($uri =~ /\/(\d\d\d\d)(.*)\//){
    $thisyear = $1;
    $thismonthname = $2;
    $thismonth = -1;
    for($ptr = 0; $ptr < 12; $ptr++){
        if($months[$ptr] eq $thismonthname){
            $thismonth = $ptr;
        }
    }
    $prevmonth = $thismonth-1;
    $prevyear = $thisyear;
    if($prevmonth < 0) {$prevmonth = 11; $prevyear--;}
    $prevmonthname = $months[$prevmonth];

    $justdate=qq($thismonthname $thisyear);
    $datelink=qq(<a style="text-decoration: none" href="/$prevyear$prevmonthname/">&lt;</a> $justdate);
}
$text =~ s/\[\[justdate\]\]/$justdate/;
$text =~ s/\[\[datelink\]\]/$datelink/;





$text =~ s/\[\[dropdown\]\]/$dropdowntext/;
$text =~ s/\[\[hitwhore\]\]/$hitwhoretext/;
$text =~ s/\[\[webcounter\]\]/$oldcounter/;

$text =~ s/\[\[survey\]\]/$surveytable/;
$text =~ s/\[\[surguts\]\]/$surveyguts/;



my($trueid,$truename) = getUserFromSession();
$login = getUserGreet($trueid,$truename);
$text =~ s/\[\[login\]\]/$login/g;

print $text;