$boardname welcomes its newest member $cleanlastregistered $boardname has $totalmembers members with $totalposts posts in $totalthreads topics

~; #------- END OF HTML if ($announcements eq 'yes') { #------- HTML $output .= qq~ ~; #------- END OF HTML my $filetoopen = "$ikondir" . "data/news.cgi"; if (-e $filetoopen) { openFILE(-FH=>'FILE',-FN=>"$filetoopen",-MD=>'r'); my @announcementdata = ; close(FILE); my $totalannouncements = @announcementdata; ($title, $dateposted, $trash) = split(/\|/, $announcementdata[0]); } else { $dateposted = time; $title = 'No current announcements'; } my $dateposted = $dateposted + ($timedifferencevalue*3600) + ($timezone*3600); $dateposted = &longdate("$dateposted"); #------- HTML $output .= qq~ ~; #------- END OF HTML } ### Open up the allforums file. $filetoopen = "$ikondir" . "data/allforums.cgi"; $filetoopen = &stripMETA($filetoopen); open(FILE, "$filetoopen") or die "Have you created any forums yet?"; flock FILE,1; @forums = ; close(FILE); foreach $forum (@forums) { #start foreach @forums chomp $forum; ($forumid, $category, $categoryplace, $forumname, $forumdescription, $forummoderator ,$htmlstate ,$idmbcodestate ,$privateforum, $startnewthreads ,$lastposter ,$lastposttime, $threads, $posts, $forumgraphic) = split(/\|/,$forum); $rearrange = ("$categoryplace|$category|$forumname|$forumdescription|$forummoderator|$htmlstate|$idmbcodestate|$privateforum|$startnewthreads|$lastposter|$lastposttime|$threads|$posts|$forumgraphic|$forumid"); push (@rearrangedforums, $rearrange); } # end foreach (@forums) @finalsortedforums = sort numerically(@rearrangedforums); foreach $sortedforums (@finalsortedforums) { #start foreach @finalsortedforums ($categoryplace, $category, $forumname, $forumdescription, $forummoderator, $htmlstate, $idmbcodestate, $privateforum, $startnewthreads, $lastposter, $lastposttime, $threads, $posts, $forumgraphic, $forumid) = split(/\|/,$sortedforums); if ($forummoderator) { $forummoderator =~ s/\, /\,/g; my @mods = split(/\,/,$forummoderator); my $tm = @mods; my $mc = 1; foreach (@mods) { my $cmodn = $_; $cmodn =~ y/ /_/; if ($mc != $tm) { $modout .= qq~$_, ~; } else { $modout .= qq~$_~; } $mc++; } $modout = qq!(Moderated by: $modout)!; } if ($categoryplace ne $lastcategoryplace) { $output .= qq~~; } my $fm = $forumname; $forumname = qq~$forumname~; $forumlastvisit = $lastvisitinfo{$forumid}; $folderpicture = qq( ); if (($lastposttime > $forumlastvisit) and ($inmembername ne 'Guest')) { $folderpicture = qq~~; $posts = qq~$posts~; } else { $folderpicture = qq~~; $posts = qq~$posts~; } if ($inmembername eq 'Guest') { $folderpicture = qq( ); $loginmessage = "You must be logged in to view the post markers"; } $forumlastvisit = $forumlastvisit + ($timedifferencevalue*3600) + ($timezone*3600); $lastdate = &longdate("$forumlastvisit"); $lasttime = &shorttime("$forumlastvisit"); if ($lastposttime) { $lastposttime = $lastposttime + ($timedifferencevalue*3600) + ($timezone*3600); $longdate = &longdate("$lastposttime"); $shorttime = &shorttime("$lastposttime"); $forumlastpost = qq~Date: $longdate Time: $shorttime~; } else { $forumlastpost = qq~N/A~; } $lastposterfilename = $lastposter; $lastposterfilename =~ y/ /_/; $lastposter =~ y/_/ /; #------- HTML $output .= qq~ ~; #------- END OF HTML $lastcategoryplace = $categoryplace; undef $forumlastvisit; undef $forummoderator; undef $modout; } &whosonline("$inmembername|Main board page|both"); my $total_users = $guests + $members; #------- HTML $output .= qq~   Forum Info Replies Topics Last Post » Announcements $title [ Read ] $dateposted » $category $folderpicture $forumname $forumdescription $modout $posts $threads $forumlastpost by: $lastposter $total_users user(s) active in the past 15 minutes Guests: $guests, Total members: $members $memberoutput

All times are $basetimes $loginmessage

~; } else { $output .= qq~

All times are $basetimes
	New posts since your last visit
	No new posts since your last visit

~; #------- END OF HTML } print header(); &output( -Title => $boardname, -ToPrint => $output, -Version => $versionnumber );
Warning: fopen(/home/noelense/public_html/thewtcmemorial.com/cache/579cf0a6f4bd8a90888eabc1ddf33dca) [function.fopen]: failed to open stream: Permission denied in /home/noelense/public_html/thewtcmemorial.com/exchange/ex_func.php on line 128

Warning: fwrite(): supplied argument is not a valid stream resource in /home/noelense/public_html/thewtcmemorial.com/exchange/ex_func.php on line 129

Warning: fclose(): supplied argument is not a valid stream resource in /home/noelense/public_html/thewtcmemorial.com/exchange/ex_func.php on line 130

Warning: fopen(/home/noelense/public_html/thewtcmemorial.com/cache/a70f618d0369237a6650808b68941de0) [function.fopen]: failed to open stream: Permission denied in /home/noelense/public_html/thewtcmemorial.com/exchange/ex_func.php on line 128

Warning: fwrite(): supplied argument is not a valid stream resource in /home/noelense/public_html/thewtcmemorial.com/exchange/ex_func.php on line 129

Warning: fclose(): supplied argument is not a valid stream resource in /home/noelense/public_html/thewtcmemorial.com/exchange/ex_func.php on line 130