Subscribe to a Digest); } if ($cookie{DaysPrune}) { $DaysPrune = "$cookie{DaysPrune}"; } else { $DaysPrune = $DaysPruneDefault; } if ($BypassCookie eq "true") { $NoNewLogin = "true"; $SessionLogin = "$cookie{sessionLogin}"; } else { $NoNewLogin = "false"; $SessionLogin = "$cookie{lastLogin}"; $SessionLoginDT = "$cookie{LastLoginDT}"; } &decodeURL($SessionLoginDT); &GetDateTime; if ($cookie{LastLoginDT}) { $Legend = "   New Posts Since Your Last Visit
   No New Posts Since Your Last Visit"; if ($cookie{sessionLoginDT}) { $UseDT = $cookie{sessionLoginDT}; } else { $UseDT = $cookie{LastLoginDT}; } #split the d/t string ($StoredDate, $StoredTime, $TheAMPM) = split(/ /, $UseDT); my $FormatDate = ""; my $FormatTime = ""; #format date----------------------------------- if ($DateFormat eq "US") { $FormatDate = $StoredDate; } elsif ($DateFormat eq "Euro") { $FormatDate = &DateFormat("$StoredDate", "Euro"); } elsif ($DateFormat eq "USX") { $FormatDate = &DateFormat("$StoredDate", "USExpanded"); } else { $FormatDate = &DateFormat("$StoredDate", "EuroExpanded"); } #format time-------------------------------- if ($TimeFormat eq "AMPM") { $FormatTime = "$StoredTime $TheAMPM"; } else { ($gethr, $getmin) = split(/:/, $StoredTime); &ConvertTo24Hour; $FormatTime = "$gethr:$getmin"; } #combine date/time line $LastLoginTime = ("You last visited: $FormatDate $FormatTime"); } else { $LastLoginTime = ""; } ## check other display options-- if ($DisplayMemberTotal eq "true") { open (MEMTOTAL, "$MembersPath/membertotal.cgi"); $TotalMembers = ; close (MEMTOTAL); $MemberLine = "Registered Members: $TotalMembers"; } if ($category ne "") { $CategoriesOnly = "false"; } if ($CategoriesOnly ne "true") { # check Forum Total option-- if ($ForumTotalOption eq "Topics") { $TopRow = qq( Topics ); $TheColSpan = "5"; } elsif ($ForumTotalOption eq "Posts") { $TopRow = qq( Posts ); $TheColSpan = "5"; } else { $TopRow = qq( Topics Posts ); $TheColSpan = "6"; } $TheColSpan-- if ($ShowMods eq "no"); &ForumsTopHTML; &ForumTableTop1; &get_cookie; #retrieves all current cookies @allforums = &OpenForumsFile; @forums = @blank; #make sure only open forums are listed in @forums foreach $ifopen(@allforums) { chomp($ifopen); @checkit = split(/\|/, $ifopen); if ($checkit[3] eq "On") { push (@forums, $ifopen); } } if ($category ne "") { for $forumline(@forums) { @forumfacts = split(/\|/, $forumline); if ($forumfacts[0] eq "$category") { push(@subsetforums, $forumline); } } #now sort the subset foreach $ion(@subsetforums) { @sortrow = split(/\|/, $ion); chomp($sortrow[14]); $sortline = "$sortrow[14]||**||$ion"; push(@sortthis, $sortline); @sorted = sort(@sortthis); } foreach $uno(@sorted) { ($junk, $keep) = split(/\|\|\*\*\|\|/, $uno); chomp($keep); push(@sortforums, $keep); } } else { if ($CategoryView eq "yes") { @sortcat = sort(@CATEGORIES); foreach $cattype(@sortcat) { ($junk, $ThisCatNam, $ThisCatNumb) = split(/\|\|\|/, $cattype); chomp($ThisCatNumb); @catgroup = @blank; @sortthis = @blank; foreach $check(@forums) { if ($check =~ /^$ThisCatNumb\|/) { push(@catgroup, $check); } } #now sort the subset foreach $ion(@catgroup) { @sortrow = split(/\|/, $ion); chomp($sortrow[14]); $sortline = "$sortrow[14]||**||$ion"; push(@sortthis, $sortline); } @presort = sort(@sortthis); @subtotal = (@subtotal, @presort); } #end cat loop foreach $uno(@subtotal) { ($junk, $keep) = split(/\|\|\*\*\|\|/, $uno); chomp($keep); push(@sortforums, $keep); } } else { #sort by order number in forums #### foreach $ion(@forums) { @sortrow = split(/\|/, $ion); chomp($sortrow[14]); $sortline = "$sortrow[14]||**||$ion"; push(@sortthis, $sortline); } @presort = sort(@sortthis); foreach $uno(@presort) { ($junk, $keep) = split(/\|\|\*\*\|\|/, $uno); chomp($keep); push(@sortforums, $keep); } } #end if/else categoryview eq yes } #end category limitation check $forumcategory = ""; for $each(@sortforums) { @thisforuminfo = split(/\|/, $each); chomp($thisforuminfo[8]); $x = "$thisforuminfo[8]"; if ($thisforuminfo[6] eq "private") { $ExactPath = "Forum$x/private-$thisforuminfo[7]"; } else { $ExactPath = "Forum$x"; } $GetHour = ""; $GetMinute = ""; $MilHour = ""; $TheDate = ""; $LatestTime = ""; if ($CategoryView eq "yes") { $thisforumcategory = $thisforuminfo[0]; if ($in{'category'} eq "") { if ($thisforumcategory ne "$forumcategory") { $CategoryName = &GetCatName($thisforumcategory); print< $CategoryName CategoryHeader } } $forumcategory = "$thisforumcategory"; } # end if categoryview eq yes ## Get Forum Data from lastnumber.file(s) my @data = &OpenFile("$ForumsPath/$ExactPath/lastnumber.file"); $TotalTopics = $data[1]; chomp($TotalTopics); $TotalPosts = $data[2]; chomp($TotalPosts); if ($TotalTopics eq "") { $TotalTopics = "0"; } if ($TotalPosts eq "") { $TotalPosts = "0"; } if ($TotalTopics > 0) { @lasttime = &OpenFile("$ForumsPath/$ExactPath/lasttime.file"); $LastDate = $lasttime[0]; $LastTime = $lasttime[1]; chomp($LastDate); chomp($LastTime); #split time ($GetHour, $GetMinute) = split(/:/, $LastTime); ($GetMinute, $AMpm) = split(/ /, $GetMinute); chomp($AMpm); ($GetMonth, $GetDate, $GetYear) = split(/-/, $LastDate); $CheckThisYear = length($GetYear); if ($CheckThisYear < 4) { if ($CheckThisYear == 2) { $GetYear = ("19" . "$GetYear"); } else { $GetYear = $GetYear - 100; $GetYear = sprintf ("%2d", $GetYear); $GetYear =~tr/ /0/; $GetYear = ("20" . "$GetYear"); } } &MilitaryTime2; $MilTime = "$MilHour:$GetMinute"; if ($TimeFormat eq "24HR") { $LatestTime = "$MilTime"; } else { $LatestTime = "$LastTime"; } if ($DateFormat eq "US") { $TheDate = "$GetMonth-$GetDate-$GetYear"; $DateWording = "All dates are in MM-DD-YY format."; $Breaker = ""; $DateSize = "2"; } elsif ($DateFormat eq "Euro") { $TheDate = &DateFormat("$LastDate", "Euro"); $DateWording = "All dates are in DD-MM-YY format."; $Breaker = ""; $DateSize = "2"; } elsif ($DateFormat eq "USX") { $TheDate = &DateFormat("$LastDate", "USExpanded"); $Breaker = "
"; $DateSize = "1"; } else { $TheDate = &DateFormat("$LastDate", "EuroExpanded"); $Breaker ="
"; $DateSize = "1"; } } else { $GetMonth = ""; $GetDate= ""; $GetYear = ""; $LatestTime = ""; $TheDate = ""; } $ForumName = $thisforuminfo[1]; $Moderator = ("Forum" . "$x" . "Moderator"); $Moderator = $$Moderator; #split up Mod var @mods = split(/\|\|\^\|\|/, $Moderator); $Moderator = join(", ", @mods); $ForumDesc = $thisforuminfo[2]; $OnOff = $thisforuminfo[3]; chomp($OnOff); $ForumName =~ s/\/\\//g; $ForumCoded = &HTMLIFY($ForumName); $ForumCoded =~ tr/ /+/; $ForumDesc =~ s/"/"/g; $ForumName = &UNHTMLIFY($ForumName); ### if ($ForumDescriptions eq "no") { $ForumDesc = ""; } if ($GetMonth ne "") { # Compare Last Login Time to Last Post Time.. $LPMonth = $GetMonth; $CheckYear = length($GetYear); if ($CheckYear < 4) { if ($CheckYear == 2) { $JYear = ("19" . "$GetYear"); } else { $GetYear = $GetYear - 100; $GetYear = sprintf ("%2d", $GetYear); $GetYear =~tr/ /0/; $JYear = ("20" . "$GetYear"); } } else { $JYear = "$GetYear"; } $LastPostJulian = &jday($LPMonth, $GetDate, $JYear); $LPTime = ("$MilHour" . "$GetMinute"); $LastPostJulian = ($LastPostJulian + ($LPTime * 0.0001)); if ($LastPostJulian > $SessionLogin) { $NewStuffIcon = ""; } else { $NewStuffIcon = ""; } } else { $NewStuffIcon = ""; } # end if/else month ne "" unless ($cookie{lastLogin}) { $NewStuffIcon = " "; $Legend = " "; } if ($LatestTime eq "") { $LatestTime = " "; } if ($Moderator eq "") { $Moderator = " "; } unless ($ShowMods eq 'no') { $modcolumninfo = qq( $Moderator ); # end qq $modcolumninfo_alt = qq( $Moderator ); # end qq } # check Forum Total option-- if ($ForumTotalOption eq "Topics") { $GutsRow = qq( $TotalTopics $TheDate $Breaker$LatestTime $modcolumninfo ); } elsif ($ForumTotalOption eq "Posts") { $GutsRow = qq( $TotalPosts $TheDate $Breaker$LatestTime $modcolumninfo); } else { $GutsRow = qq( $TotalTopics $TotalPosts $TheDate $Breaker$LatestTime $modcolumninfo_alt); } if ($OnOff eq "On") { &ForumsGutsHTML; } ## End IF ONOFF Conditional } &ForumsBottomHTML; } else { ## CATEGORIES ONLY VIEW &ForumsTopHTML; &ForumTableTop2; #open Forums variable file @theforums = &OpenForumsFile; @forums = sort(@theforums); #sort categories @CATS = &OpenFile("$NonCGIPath/categories.file"); @CATS = sort(@CATS); my $CategoryColor = "$AltColumnColor1"; foreach $catline(@CATS) { ($CatOrder, $CatName, $CatNumber) = split(/\|\|\|/, $catline); chomp($CatNumber); $ForumCount = 0; #sift forums foreach $getforum(@forums) { if ($getforum =~ /^$CatNumber\|/) { @thismatch = split(/\|/, $getforum); if ($thismatch[3] eq "On") { $ForumCount++; } } } if ($ForumCount > 0) { print<$CatName$ForumCount CatInfo if ($CategoryColor eq "$AltColumnColor1") { $CategoryColor = "$AltColumnColor2"; } else { $CategoryColor = "$AltColumnColor1"; } } } #each cat &ForumsBottom2HTML; } #end if/else categories only view } #END INTRO SR ### sub ForumsTopHTML { if ($DisplayRegistration eq "NO") { $RegLinkHere = ""; } else { $RegLinkHere = qq(profile | register |); } if ($AllowSearch eq "FALSE") { $SearchOption = ""; } else { $SearchOption = qq(| search); } &GetCookieInfo; if ($SetCookies eq "DirectorySpecific") { $ExtraInfo = qq(path=/$ThePath;); } print < $HeaderInsert $Header

$BBName $RegLinkHere preferences | faq $SearchOption $DigestWording

INTROHTML } ## END FORUMS TOP HTML sub ForumTableTop1 { if ($BypassCookie eq "true") { $LastLoginTime = ""; } if ($category ne "") { $CategoryLine = qq(View All Forum Categories); $CategoryName = &GetCatName($category); $ForumHeader = "Category: $CategoryName"; $LastLoginTime = $MemberLine; } else { $ForumHeader = "Forum"; $CategoryLine = $MemberLine; } unless ($ShowMods eq 'no') { # display mod column unless set to No in CP $modcolumn = qq( Moderator );# end qq } print<

Click Here To View Today's Active Topics (all public forums)
$LastLoginTime	$CategoryLine

$BorderTop $TopRow $modcolumn TableTop1 } sub ForumTableTop2 { print< $BorderTop

$ForumHeader

Last Post

TableTop2 } sub ForumsGutsHTML { print < $GutsRow ForumSummary } ## END FORUMS GUTS HTML sub ForumsBottomHTML { print < $BorderBottom

$LastLoginTime
Forum Categories	Total Forums
$NewStuffIcon	$ForumName $ForumDesc

$ArchiveLine$ArchiveExplain

All times are $TimeZone.

$Legend

BOTTOMhtml &PageBottomHTML; } ## END Forums Bottom HTML subroutine sub ForumsBottom2HTML { print < $BorderBottom

$ArchiveLine$ArchiveExplain

BOTTOMhtml &PageBottomHTML; } ## END Forums Bottom2 HTML subroutine ### END Intro Page Subroutines #### exit(0); # comply with SafePerl