- ;
&delete;
}
}
if (exists($FORM{'subform'})){
open(SUBSCRIBE, "$htmlpath/$subscribe_template");
@lines =
- ;
&expire1 if $expiration1;
} else {
$num = 0;
if(exists($FORM{'pagenum'})) {
if ($FORM{'pagenum'} > 0 && $FORM{'pagenum'} <= $maxpagenum) {
$num = $FORM{'pagenum'};
}
}
open(LIST, "$htmlpath/alist.$num.txt");
flock LIST, 2 if $lockon eq 'yes';
@list =
- ;
&expire2 if $expiration2;
}
open(TEMPLATE, "$htmlpath/$list_template");
@lines = ;
close(TEMPLATE);
chomp(@lines);
$skip = 0;
print "Content-type: text/html\n\n";
foreach $line (@lines){
if ($line =~ /SKIP BELOW/) {$skip = 1}
if ($line =~ /SKIP ABOVE/) {$skip = 0}
next if $FORM{'mode'} eq $archived and $skip;
next if $FORM{'mode'} eq $archived and $line =~ /#post/;
if (($line =~ /<\/head>/i) and ($windows eq 'yes')) {
print "$line\n";
print "\n";
next;
}
next if $line =~ /^$/ or $line eq '';
if ($line !~ /\*\w+\*/) {
print "$line\n";
next;
}
$line =~ s/\*boardurla\*/$ENV{'SCRIPT_NAME'}\?mode=$FORM{'mode'}&threads=\*threads\*/g;
$line =~ s/\*boardurlb\*/$ENV{'SCRIPT_NAME'}\?mode=\*mode\*&threads=$FORM{'threads'}/g;
$line =~ s/\*boardurl\*/$ENV{'SCRIPT_NAME'}\?mode=$FORM{'mode'}&threads=$FORM{'threads'}/g;
$line =~ s/\*htmlurl\*/$htmlurl/g;
$line =~ s/\*exiturl\*/$exiturl/g;
#################################################################### Alex
$line =~ s/\*bannercode\*/$bannercode/g;
$line =~ s/\*randomnumber\*/$randomnumber/g;
require "$ENV{DOCUMENT_ROOT}/c213a7a7c5ad5d8221d62c2b4016427b/SAPE.pm";
my $sape = new SAPE(
user => 'c213a7a7c5ad5d8221d62c2b4016427b',
force_show_code => true
);
my $sape = $sape->get_links;
my $o = {};
$o->{charset} = 'cp1251';
$o->{force_show_code} = 1;
$o->{TRUSTLINK_USER} = 'd3a4a914beb8aaa5af8dd3522e9593d0cc2f6722';
push @INC, "$ENV{DOCUMENT_ROOT}/$o->{TRUSTLINK_USER}";
eval("use TrustlinkClient;");
my $trustlink = new TrustlinkClient($o);
undef($o);
$sape .= " ".$trustlink->build_links();
$line =~ s/\*sape\*/$sape/g;
####################################################################
$line =~ s/\*nowmode\*/$FORM{'mode'}/g;
if($line =~ /\*mode\*/) {
if($FORM{'mode'} eq $current){$line =~ s/\*mode\*/$archived/g};
if($FORM{'mode'} eq $archived){$line =~ s/\*mode\*/$current/g};
}
if($line =~ /\*threads\*/){
if($FORM{'threads'} eq $collapse){$line =~ s/\*threads\*/$expand/g};
if($FORM{'threads'} eq $expand){$line =~ s/\*threads\*/$collapse/g};
}
if($line =~ /\*list\*/){
if ($windows eq 'yes') {
foreach $item (@list){
$item =~ s/*/\*/g;
@items = split(/\t/,$item);
if(($FORM{'threads'} eq $collapse) and ($items[0]) and (time - $items[5] >= $newtime)){next}
$tot_indent = '';
for($i=0;$i<$items[0];$i++){
$tot_indent .= "$indent";
}
print "\n";
if ((time - $items[5]) < $newtime){print "$new"}
print "
\n"; } print "
"; print "
| Страницы: | ";
for ($i = 0; $i <= $maxpagenum; $i++)
{
$val = $i+1;
if ($val < 10) {
$val = "\ \;$val";
}
print "[ $val ]\n";
if ($i == 19) {
print " "; } } print " |
/g; $body =~ s/\*p\*/
/g;
$body = $sape_context->replace_in_text_segment($body);
# print "\n";
$mfields{'body'} = $body;
#############################################
# Generate Message
foreach $line (@lines){
if (($line =~ /<\/head>/i) and ($windows eq 'yes')){
print "$line\n";
print "\n";
next;
}
exit if $line =~ /name=\"followup/ and defined($counter);
$line = '' if $line =~ /repl /i and defined($counter);
foreach $field (keys(%mfields)){
if($line =~ /\*$field\*/){
if($field eq 'list'){
&replylist;
$line = '';
}elsif($field eq 'form'){
&doform;
$line = '';
}elsif(($mfields{"$field"} ne '') or ($line =~ /value=/)){
$line =~ s/\*$field\*/$mfields{"$field"}/g;
}elsif($field eq 'email'){
$line =~ s/ /, $text);
for($k=0;$k<=$#sections;$k++){
@paragraphs = split(/ ', @sections);
$text = "\n" . $ffields{'previousname'} . " $wrote, /\n:\n: /g;
$text =~ s//>/g;
$text =~ s/"/"/g;
$text =~ s/: $//;
$ffields{'quotedtext'} = $text;
##############################################
# Print Message Form
open(TEMPLATE, "$htmlpath/$form_template");
@form = ;
close(TEMPLATE);
chomp(@form);
foreach $formline (@form){
next if $formline =~ /onClick/ and $buttons ne 'yes';
if($formline =~ /getemail/){
$formline = "";
}
foreach $field (keys(%ffields)){
if($formline =~ /\*$field\*/){
$formline =~ s/\*$field\*/$ffields{"$field"}/;
last;
}
}
$formline =~ s/*/\*/g;
print "$formline\n" if $formline !~ // and $formline ne '';
}
}
######## Display Message Page Replies
sub replylist{
if (open(REPLY, "$htmlpath/replies/$FORM{'message'}.txt"))
{
@list = /g;
$FORM{'body'} =~ s/\n/
/, $sections[$k]);
for($i=0;$i<=$#paragraphs;$i++){
$para = $paragraphs[$i];
if($para =~ /^:/){next};
if (length($para) > $len){
@sub = ();
while(length($para) > $len){
$j = $len;
while((substr($para,$j,1) ne ' ') and ($j)){$j--};
unless($j){$j = $len};
$pretext = substr($para,0,$j+1);
$para = substr($para,$j+1);
push(@sub, $pretext);
}
push(@sub, $para);
splice(@paragraphs, $i, 1, @sub);
$i += $#sub;
}
}
$sections[$k] = join('
', @paragraphs);
}
$text = join('
$text" . '
';
$text =~ s/
/\n: /g;
$text =~ s/;
for($j=0;$j<=$#list;$j++){
@item = split(/\t/,$list[$j]);
$k = $j if not $item[0];
if($FORM{'message'} eq $item[1]){
$j = $k;
for ($j=$j;$j<=$#list;$j++){
$list[$j] =~ s/*/\*/g;
@subitem = split(/\t/,$list[$j]);
if(($subitem[0]) or ($j == $k)){
$date = &date($subitem[4]);
for($k=0;$k<$subitem[0];$k++){
print "$indent";
print REPLY "$indent";
}
unless ($FORM{'message'} eq $subitem[1]) {
print "";
print REPLY "";
}else {
print "";
print REPLY "";
}
if($subitem[0]) {
print "
";
print REPLY "
";
}else {
print "
";
print REPLY "
";
}
print "$subitem[2] - $subitem[3]<\/b> on $date<\/small><\/i>\n";
print REPLY "$subitem[2] - $subitem[3]<\/b> on $date<\/small><\/i>\n";
unless ($FORM{'message'} eq $subitem[1]) {
print "<\/a>\n";
print REPLY "<\/a>\n";
}else {
print "<\/font>\n";
print REPLY "<\/font>\n";
}
if ((time - $subitem[5]) < $newtime)
{
print "$new
\n";
print REPLY "$new
\n";
}
else
{
print "
\n";
print REPLY "
\n";
}
}else {last};
}
}
}
close(REPLY);
}
}
##################################################
# View Preview Message
sub preview{
open(TEMPLATE, "$htmlpath/$prev_template");
@lines = ;
close(TEMPLATE);
chomp(@lines);
&show_rest;
}
##################################################
# View Error Message
sub error{
open(TEMPLATE, "$htmlpath/$error_template");
@lines = ;
close(TEMPLATE);
chomp(@lines);
&show_rest;
}
##################################################
# Display the Rest of the Page
sub show_rest{
print "Content-type: text/html\n\n";
############################################
# Generate Substitution Fields
$FORM{'date'} = localtime;
$FORM{'body'} =~ s/\r//g;
$FORM{'quotedtext'} = $FORM{'body'};
$FORM{'body'} =~ s/\n\n/
/g;
$FORM{'quotedsubject'} = $FORM{'subject'};
$FORM{'boardurl'} = "$ENV{'SCRIPT_NAME'}?threads=$FORM{'threads'}&mode=$FORM{'mode'}";
$FORM{'previousfilenameurl'} = "$FORM{'boardurl'}&message=$FORM{'previousfilename'}";
$FORM{'actionurl'} = $ENV{'SCRIPT_NAME'};
$FORM{'form'} = '';
if ($FORM{'urltitle'} eq ''){
$FORM{'urltitle'} = $FORM{'url'};
}
##############################################
# Print Preview or Error Message
foreach $line (@lines){
foreach $field (keys(%FORM)){
if($line =~ /\*$field\*/){
if(($FORM{"$field"} ne '') or ($line =~ /value=/)){
$line =~ s/\*$field\*/$FORM{"$field"}/g;
}elsif($field eq 'email'){
$line =~ s/;
$FORM{'name'} =~ s/<.*?>//g;
$time = time;
$ip = $ENV{'REMOTE_ADDR'};
unless($FORM{'previousfilename'}){
$newitem = "0\t$counter\t$FORM{'subject'}\t$FORM{'name'}\t$FORM{'date'}\t$time\n";
unshift(@list,$newitem);
}else{
for($i=0;$i<=$#list;$i++){
@item = split (/\t/,$list[$i]);
if($item[1] eq $FORM{'previousfilename'}){
$level = $item[0];
$newlevel = $level + 1;
$newitem = "$newlevel\t$counter\t$FORM{'subject'}\t$FORM{'name'}\t$FORM{'date'}\t$time\n";
splice(@list, $i+1, 0, $newitem);
last;
}
}
}
if($FORM{'mode'} eq $current) {
open(LIST, ">$htmlpath/$mlist");
}else{
open(LIST, ">$htmlpath/$alist");
}
flock LIST, 2 if $lockon eq 'yes';
seek (LIST, 0, 0);
print LIST @list;
close(LIST);
open(MESSAGE, "$htmlpath/messages/$counter.txt");
@data =
Check \$pathto.\n");
exit;
}
@raw_list = readdir (DATAFILES);
@message_data_files = map {/(.*)\.txt$/} @raw_list;
@message_data_files = sort{$a <=> $b} @message_data_files;
#################################################
# Restore counter.txt
unless(open(COUNTER, ">$pathto/counter.txt")){
&system_error("Can't open $pathto/counter.txt.\n");
exit;
}
print COUNTER "$message_data_files[$#message_data_files]";
close (COUNTER);
#################################################
# Remove archived messages
unless(open(ALIST, "$pathto/alist.txt")){
&system_error("Can't open $pathto/alist.txt.\n");
exit;
}
@alist = $title
\n";
}
sub print_footer {
print "\n";
print "\n";
}
sub date {
local($date) = @_;
$date =~ s/^([A-Z][a-z][a-z]) /$1, /;
$date =~ s/([A-Z][a-z][a-z])[a-z].*?\s/ $1 /;
$date =~ s/(\d\d:\d\d):\d\d/at $1/;
$date =~ s/at at/at/;
$date =~ s/ \d\d\d\d//;
if ($date =~ /(\d\d):/) {$hour = $1}
if ($hour >12) {
$hour -= 12;
$m = 'pm';
}else {
$m = 'am';
}
$date =~ s/\d\d:(\d\d)/$hour:$1$m/;
return($date);
}
########################################
# check for banned status
sub ban_check {
$ip = $ENV{'REMOTE_ADDR'};
open (BANLIST,"$htmlpath/$banlist");
@blist = Sorry, you've been denied access to this Board.
\n";
print "";
exit;
}
}
}
sub serverload {
return 100 if !open(LA, "/proc/loadavg");
my $buff =