موقع أكلات

#!/usr/bin/perl use strict; use lib qw(/usr/home/web/users/a0017451/html/cgi-bin); use CGI qw(:standard escapeHTML); use AklaatDB; use AklaatDB::Session; my $ScriptLocation = "http://www.aklaat.com/cgi-bin"; my $baseurl = 'http://www.aklaat.com/'; my $mailprog = '/usr/sbin/sendmail'; my $basedir = '/usr/home/web/users/a0017451/html/'; my $returnemail = 'admin@aklaat.com'; my ($count, @FileData, @temp, $name, $value, $buffer); if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } my (@temp, $name, $value, %QUERY, %SETTINGS); @temp = split /&/, $buffer; for(@temp) # Get Query String and put it in hash %QUERY { ($name, $value) = split /=/, $_; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $QUERY{$name} = $value; } # If the cookie containing the session ID is present, use the ID to look up # an existing session. If the attempt fails or there was no cookie, create # a new session and prepare a cookie to send to the client that contains # the session ID. If all attempts to open a session fail, we can't continue. my $usernameCookie = cookie ("aklaat_user_name"); my $emailCookie = cookie ("aklaat_user_email"); my $realnameCookie = cookie ("aklaat_user_real_name"); my $http_referer = $ENV{'HTTP_REFERER'}; $http_referer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # Convert all Hex back to regular characters SuccessfulLogOn($realnameCookie); exit(0); ############################################################# sub SuccessfulLogOn { my ($realname) = @_; print "Content-type:text/html\n\n"; print< موقع أكلات HTMLTOP my $data_file="includes/style.htm"; open(DAT, "$basedir$data_file") || die("Could not open file!"); my @raw_data=; close(DAT); my $line; foreach $line (@raw_data) { print "$line"; } $data_file="includes/script.htm"; open(DAT, "$basedir$data_file") || die("Could not open file!"); @raw_data=; close(DAT); foreach $line (@raw_data) { print "$line"; } print< A { TEXT-DECORATION: none } LI { color:#f0af21 } A:hover { COLOR: #cc0000; TEXT-DECORATION: underline } .home-title { FONT-SIZE: 17px; COLOR: #cc0000; FONT-FAMILY: "Simplified Arabic" } .home-text { FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: "Simplified Arabic" } .sub-text { FONT-SIZE: 15px; COLOR: #cc4a00; FONT-FAMILY: "Simplified Arabic" } .V9 {FONT-FAMILY: 'Simplified Arabic'; FONT-SIZE: 15px; font-weight: bold} .T12 {FONT-SIZE: 12px; FONT-FAMILY: 'Tahoma'; font-weight: bold} .T14 {FONT-SIZE: 14px; FONT-FAMILY: 'Tahoma'; font-weight: bold} HTMLTOP require "../ui/top.pl"; print< HTMLTOP print ""; require "../ui/nav.pl"; print ""; $data_file="includes/key_press.htm"; open(DAT, "$basedir$data_file") || die("Could not open file!"); @raw_data=; close(DAT); foreach $line (@raw_data) { print "$line"; } print ""; exit(0); } ############################################################ sub GetPostData { my (@pairs, $pair, $name, $value, $buffer, $x, %POST); read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; # Change all +'s to spaces $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # Convert all Hex back to regular characters if($QUERY{'sub'} ne 'no') { $value =~ s/\/\>/g; $value =~ s/\|/\&\#124/g; $value =~ s/\=/\&\#61/g; $value =~ s/\r/
/g; # Replace hard returns $value =~ s/\n//g; # remove newlines $value =~ s/\cM//g; # remove ^M's } $POST{$name} = $value; } } ############################################################

HTMLTOP print " موقع أكلات يرحب بمشتركها $realname.