$mbname - $txt{'668'}

############################################################################### # Printpage.pl # ############################################################################### # YaBB: Yet another Bulletin Board # # Open-Source Community Software for Webmasters # # Version: YaBB 1 Gold - SP 1.2 # # Released: December 2001; Updated January 27, 2003 # # Distributed by: http://www.yabbforum.com # # =========================================================================== # # Copyright (c) 2000-2003 YaBB (www.yabbforum.com) - All Rights Reserved. # # Software by: The YaBB Development Team # # with assistance from the YaBB community. # # Sponsored by: Xnull Internet Media, Inc. - http://www.ximinc.com # ############################################################################### $printplver = "1 Gold - SP 1.2"; sub Print { $num = $INFO{'num'}; ### Determine what category we are in. ### fopen(FILE, "$boardsdir/$currentboard.ctb") || &fatal_error("300 $txt{'106'}: $txt{'23'} $currentboard.ctb"); $cat = ; fclose(FILE); $curcat = $cat; fopen(FILE, "$boardsdir/$cat.cat") || &fatal_error("300 $txt{'106'}: $txt{'23'} $cat.cat"); $cat = ; fclose(FILE); &LoadCensorList; # Load Censor List ### Lets open up the thread file itself. ### fopen(THREADS, "$datadir/$num.txt") || &donoopen; @threads = ; fclose(THREADS); $cat =~ s/\n//g; ($messagetitle, $poster, $trash, $date, $trash, $trash, $trash, $trash, $trash) = split (/\|/,$threads[0]); $startedby = $poster; $startedon = timeformat($date); ### Lets output all that info. ### print "Content-type: text/html\n\n"; print qq~ $mbname - $txt{'668'} ~; ### Split the threads up so we can print them. foreach $thread (@threads) { # start foreach ($threadtitle, $threadposter, $trash, $threaddate, $trash, $trash, $trash, $trash, $threadpost) = split (/\|/,$thread); ### Do/Undo YaBBC Stuff ### $threadpost =~ s~
~\n~ig; $threadpost =~ s~\[code\]\n*(.*?)\n*\[/code\]~&codemsg($1)~eisg; $threadpost =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $threadpost =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $threadpost =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; $threadpost =~ s~\[b\](.+?)\[/b\]~$1~isg; $threadpost =~ s~\[i\](.+?)\[/i\]~$1~isg; $threadpost =~ s~\[u\](.+?)\[/u\]~$1~isg; $threadpost =~ s~\[s\](.+?)\[/s\]~$1~isg; $threadpost =~ s~\[move\](.+?)\[/move\]~$1~isg; $threadpost =~ s~\[glow(.*?)\](.*?)\[/glow\]~&elimnests($2)~eisg; $threadpost =~ s~\[shadow(.*?)\](.*?)\[/shadow\]~&elimnests($2)~eisg; $threadpost =~ s~\[shadow=(\S+?),(.+?),(.+?)\](.+?)\[/shadow\]~$4~eisg; $threadpost =~ s~\[glow=(\S+?),(.+?),(.+?)\](.+?)\[/glow\]~$4~eisg; $threadpost =~ s~\[color=([\w#]+)\](.*?)\[/color\]~$2~isg; $threadpost =~ s~\[black\](.*?)\[/black\]~$1~isg; $threadpost =~ s~\[white\](.*?)\[/white\]~$1~isg; $threadpost =~ s~\[red\](.*?)\[/red\]~$1~isg; $threadpost =~ s~\[green\](.*?)\[/green\]~$1~isg; $threadpost =~ s~\[blue\](.*?)\[/blue\]~$1~isg; $threadpost =~ s~\[font=(.+?)\](.+?)\[/font\]~$2~isg; $threadpost =~ s~\[size=(.+?)\](.+?)\[/size\]~$2~isg; $threadpost =~ s~\[quote\s+author=(.*?)\s+link=(.*?)\].*\/me\s+(.*?)\[\/quote\]~\[quote author=$1 link=$2\]* $1 $3\[/quote\]~isg; $threadpost =~ s~\[quote(.*?)\].*\/me\s+(.*?)\[\/quote\]~\[quote$1\]* Me $2\[/quote\]~isg; $threadpost =~ s~\/me\s+(.*)~* $displayname $1~ig; $char_160 = chr(160); $threadpost =~ s~\[img\][\s*\t*\n*( )*($char_160)*]*(http\:\/\/)*(.+?)[\s*\t*\n*( )*($char_160)*]*\[/img\]~http://$2~isg; $threadpost =~ s~\[img width=(\d+) height=(\d+)\][\s*\t*\n*( )*($char_160)*]*(http\:\/\/)*(.+?)[\s*\t*\n*( )*($char_160)*]*\[/img\]~http://$4~isg; $threadpost =~ s~\[tt\](.*?)\[/tt\]~$1~isg; $threadpost =~ s~\[left\](.+?)\[/left\]~

~isg; $threadpost =~ s~\[center\](.+?)\[/center\]~$1~isg; $threadpost =~ s~\[right\](.+?)\[/right\]~

~isg; $threadpost =~ s~\[sub\](.+?)\[/sub\]~_$1~isg; $threadpost =~ s~\[sup\](.+?)\[/sup\]~^$1~isg; $threadpost =~ s~\[fixed\](.+?)\[/fixed\]~$1~isg; $threadpost =~ s~\[\[~\{\{~g; $threadpost =~ s~\]\]~\}\}~g; $threadpost =~ s~\|~\|~g; $threadpost =~ s~\[hr\]\n~

~g; $threadpost =~ s~\[hr\]~

~g; $threadpost =~ s~\[br\]~\n~ig; $threadpost =~ s~\[url\]www\.\s*(.+?)\s*\[/url\]~www.$1~isg; $threadpost =~ s~\[url=\s*(\w+\://.+?)\](.+?)\s*\[/url\]~$2 ($1)~isg; $threadpost =~ s~\[url=\s*(.+?)\]\s*(.+?)\s*\[/url\]~$2 (http://$1)~isg; $threadpost =~ s~\[url\]\s*(.+?)\s*\[/url\]~$1~isg; $threadpost =~ s~\[email\]\s*(\S+?\@\S+?)\s*\[/email\]~$1~isg; $threadpost =~ s~\[email=\s*(\S+?\@\S+?)\]\s*(.*?)\s*\[/email\]~$2 ($1)~isg; $threadpost =~ s~\[news\](.+?)\[/news\]~$1~isg; $threadpost =~ s~\[gopher\](.+?)\[/gopher\]~$1~isg; $threadpost =~ s~\[ftp\](.+?)\[/ftp\]~$1~isg; $threadpost =~ s~\[quote\s+author=(.*?)link=(.*?)\s+date=(.*?)\s*\]\n*(.*?)\n*\[/quote\]~
on $3, $1 wrote:


    
      
        $mbname
        ($scripturl)
      

        $cat >> $boardname >> $messagetitle
        
($txt{'195'}: $startedby $txt{'176'} $startedon)

~isg; $threadpost =~ s~\[quote\]\n*(.+?)\n*\[/quote\]~
Quote:

~isg; $threadpost =~ s~\[list\]~

~isg; $threadpost =~ s~\[/list\]~

~isg; $threadpost =~ s~\[pre\](.+?)\[/pre\]~'

' . dopre($1) . '

'~iseg; $threadpost =~ s~\[flash=(\S+?),(\S+?)\](\S+?)\[/flash\]~$3~isg; $threadpost =~ s~\{\{~\[~g; $threadpost =~ s~\}\}~\]~g; if( $threadpost =~ m~\[table\]~i ) { $threadpost =~ s~\n{0,1}\[table\]\n*(.+?)\n*\[/table\]\n{0,1}~$1

~isg; while( $threadpost =~ s~\(.*?)\n*\[tr\]\n*(.*?)\n*\[/tr\]\n*(.*?)\~$1$2$3

~is ) {} while( $threadpost =~ s~\(.*?)\n*\[td\]\n{0,1}(.*?)\n{0,1}\[/td\]\n*(.*?)\~$1$2$3~is ) {} } $threadpost =~ s~\[\&table(.*?)\]~~g; $threadpost =~ s~\[/\&table\]~~g; $threadpost =~ s~\n~
~g; ### Censor it ### foreach (@censored) { ($tmpa,$tmpb) = @{$_}; $threadtitle =~ s~\Q$tmpa\E~$tmpb~gi; $threadpost =~ s~\Q$tmpa\E~$tmpb~gi; } $threaddate = timeformat($threaddate); print qq~

$txt{'196'}: $threadtitle
$txt{'197'} $threadposter $txt{'176'} $threaddate

$threadpost ~; } print qq~

$yycopyright ~; exit; } { my %killhash = ( ';' => ';', '!' => '!', '(' => '(', ')' => ')', '-' => '-', '.' => '.', '/' => '/', ':' => ':', '?' => '?', '[' => '[', '\\' => '\', ']' => ']', '^' => '^' ); sub codemsg { my $code = $_[0]; if($code !~ /&\S*;/) { $code =~ s/;/;/g; } $code =~ s~([\-\:\\\/\?\!\]\[\.\^])~$killhash{$1}~g; $_ = qq~
Code:

CODE

~; $_ =~ s~CODE~$code~g; return $_; } } sub donoopen { print qq~ $txt{'199'} $txt{'199'} ~; exit; } 1;