#!/usr/bin/perl
#############################################################
# Ikonboard v2.1
# Copyright 2000 Ikondiscussion.com - All Rights Reserved
# Ikondiscussion is a trademark of Ikondiscussion.com
#
# Software Distributed by: Ikondiscussion.com
# Visit us online at http://www.ikondiscussion.com
# Email us on boards@ikondiscussion.com
#
# All files written by Matthew Mecham
#############################################################
use CGI::Carp "fatalsToBrowser"; # Output errors to browser
use CGI qw(:standard); # Saves loads of work
$CGI::POST_MAX=1024 * 150; # limit post data
$CGI::DISABLE_UPLOADS = 1; # Disable uploads
eval {
($0 =~ m,(.*)/[^/]+,) and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
require "ikon.lib"; # Require ikonboard ()
require "data/progs.cgi"; # Require prog names
require "data/boardinfo.cgi";# Require board info
require "data/styles.cgi"; # Require styles info
require "ikonmail.lib"; # Require email func ()
};
if ($@) {
print header(-charset=>'windows-1256'); print start_html(-title=>"Ikonboard Error!");
print "Could not find these files: $@\nIf you are running NT you may need to enter the full path in each require statement in each script";
print end_html; exit;
}
$|++; # Unbuffer the output
#################--- Begin the program ---###################
$thisprog = "report.cgi";
$query = new CGI;
$inforum = $query -> param('forum');
$intopic = $query -> param('topic');
$action = $query -> param('action');
$insubject = $query -> param('subject');
$inemailmessage = $query -> param('emailmessage');
$emailtopictitle = $query -> param('emailtopictitle');
$intouser = $query -> param('touser');
$inmembername = $query -> param('membername');
$inpassword = $query -> param('password');
$inmsgtitle = $query -> param('subject');
$inmessage = $query -> param('emailmessage');
$inoriginalpost = $query -> param('originalpost');
$inpost2 = "Original thread located at: $boardurl/$threadprog?forum=$inforum&topic=$intopic
";
$insubject = &cleaninput($insubject);
$inemailmessage = &cleaninput($inemailmessage);
$emailtopictitle = &cleaninput($emailtopictitle);
$inforum = &cleaninput($inforum);
$inoriginalpost = &cleaninput($inoriginalpost);
$inmembername = &cleaninput($inmembername);
$inpassword = &cleaninput($inpassword);
$inpostno = $query -> param('postno');
$inmessage2 = $inemailmessage.$inoriginalpost.$inpost2;
# new
$reply2message = $query -> param('reply2message');
$reply2message =~ s/\_/ /g;
$massto = $query -> param('sendto');
@turned_on = $query -> param("select");
$Send2Outbox = $query -> param('Send2Outbox');
$nick = $query -> param('add_name');
$desc = $query -> param('add_desc');
$ban = $query -> param('add_ban');
$copy = $query -> param('add_copy');
$add_num = $query -> param('add_num');
$add_selected = $query -> param('selected');
$add_user2 = $query -> param('touser1');
$add2contact = $query -> param('add2contact');
$quotemessage = $query -> param('quotemessage');
# -- new
if (! $inmembername) { $inmembername = cookie("amembernamecookie"); }
if (! $inpassword) { $inpassword = cookie("apasswordcookie"); }
if ($inmembername eq "") {
$inmembername = "Guest";
}
else {
&getmemberstime("$inmembername");
}
if ($action eq "send") {
$namecookie = cookie(-name => "amembernamecookie",
-value => "$inmembername",
-path => "$cookiepath",
-expires => "+30d");
$passcookie = cookie(-name => "apasswordcookie",
-value => "$inpassword",
-path => "$cookiepath",
-expires => "+30d");
print header(-charset=>'windows-1256', -cookie =>[$cookie, $tempcookie]);
}
else {
print header(-charset=>'windows-1256');
}
if (($inforum) && ($inforum !~ /^[0-9]+$/)) { &error("General&Please do not modify the URL's generated."); }
if (($intopic ) && ($intopic !~ /^[0-9]+$/)) { &error("General&Please do not modify the URL's generated."); }
&title;
$output .= qq~
$boardname
اخبار الادارييين بموضوع معين |
|