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