in Subs.pl find sub template.... I have GZIP and SSI installed and use the cookie ... sub template { $yycounter=$counterstring; my $gzaccept= $ENV{'HTTP_ACCEPT_ENCODING'}=~/\bgzip\b/ || $gzforce; #### SSI Center mod start unless ( $ssic_dotemplate eq 'ssic_dotemplate' ) { ###################################################### # Start Cookie Stuff ################# $Cdate = $ENV{'HTTP_COOKIE'}; # Get the Cookie $Cdate =~ /Cdate=([^;]*)/; $Cdate = $1; if ($Cdate ne $mday){ # if Cookie is Not set to today ($mday) check for last IP $yySetCdate = cookie(-name => "Cdate", -value => "$mday", -path => "/", -expires => "Sunday, 17-Jan-2038 00:00:00 GMT"); $LastMessageCount = $ENV{'HTTP_COOKIE'}; # Get the Cookie $LastMessageCount =~ /MessageCount=([^;]*)/; $LastMessageCount = $1; $yySetLastMessageCount = cookie(-name => "LastMessageCount", -value => "$LastMessageCount", -path => "/", -expires => "Sunday, 17-Jan-2038 00:00:00 GMT"); $yySetMessageCount = cookie(-name => "MessageCount", -value => "$totalm", -path => "/", -expires => "Sunday, 17-Jan-2038 00:00:00 GMT"); } ########## End today if ($gzcomp && $gzaccept) { if($yySetCookies1 || $yySetCookies2) { print header(-cookie=>[$yySetCookies1, $yySetCookies2, $yySetCdate, $yySetLastMessageCount, $yySetMessageCount] , 'Content-Encoding' => 'gzip', -charset=>$yycharset ); } else { print header(-status=>'200 OK', -cookie=>[$yySetCdate, $yySetLastMessageCount, $yySetMessageCount] , 'Content-Encoding' => 'gzip', -charset=>$yycharset ); } } else { if($yySetCookies1 || $yySetCookies2) { print header(-status=>"200 OK", -cookie=>[$yySetCookies1, $yySetCookies2, $yySetCdate, $yySetLastMessageCount, $yySetMessageCount], -charset=>$yycharset); } else { print header(-status=>"200 OK", -cookie=>[$yySetCdate, $yySetLastMessageCount, $yySetMessageCount], -charset=>$yycharset); } } } ### SSI Center mod end End Subs.pl edits ########## top of BoardIndex somewhere $LastCount = $ENV{'HTTP_COOKIE'}; # Get the Cookie $LastCount =~ /LastMessageCount=([^;]*)/; $LastCount = $1; ############ # after $totalm is counted... #### Start piece 2 New Message Count Display $LastMessageCount = $totalm - $LastCount; #### End Piece 2 New Message Count Display #########3 in the info center... New Forum Messages: $LastMessageCount
$ims