#!/usr/bin/perl
#
#					Perfect Pager
#
#########################################################################

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

open(STDERR,">&STDOUT");

require "cgi-lib.pl";
require "cookie-lib.pl";
&get_cookie;

&ReadParse;

#
$prefix=$in{'prefix'};
$pass=$in{'pass'};
#
$number=$in{'number'};
$sender=$in{'sender'};
$message=$in{'message'};
$first=$in{'first'};
$day=$in{'day'};
$hour=$in{'hour'};
$minute=$in{'minute'};
$x_forward = $ENV{'HTTP_X_FORWARDED_FOR'};
$theip =$ENV{'REMOTE_ADDR'};

$d=pack("c",hex(D));

$number=~s/"//sg;
$sender=~s/"/'/sg;

#$numberOfsent=$number;

if( (length($number)==0) || (length($sender)==0) || (length($message)==0) ){
	print "Content-type: text/html\n\n";
	$prefixCook=$cookie{'prefixCook'};
	$numberCook=$cookie{'numberCook'};
	$fromCook=$cookie{'fromCook'};
	$prefixCook=~s/
(.*)$//;
	$numberCook=~s/
(.*)$//;
	$fromCook=~s/
(.*)$//;

	if($prefixCook eq '152'){$p152="selected"}
	elsif($prefixCook eq '162'){$p162="selected"}
	elsif($prefixCook eq '142'){$p142="selected"}
	elsif($prefixCook eq '1188'){$p1188="selected"}
	elsif($prefixCook eq '1500'){$p1500="selected"}
	elsif($prefixCook eq '1144'){$p1144="selected"}
	elsif($prefixCook eq 'ICQ'){$picq="selected"}
	elsif($prefixCook eq 'GSM'){$pgsm="selected"}		
	else{$default="selected"};
	if( length $numberCook == 0){$numberCook="";};
	
	$jamex=int(rand(4));
	
	if( $jamex==0 ){
	open(file,"outdex1.html");
	@array=<file>;
	close(file);
	}
	elsif( $jamex==1 ){
	open(file,"outdex3.html");
	@array=<file>;
	close(file);	
	}
	elsif( $jamex==2 ){
	open(file,"outdex4.html");
	@array=<file>;
	close(file);	
	}
	else{
	open(file,"outdex2.html");
	@array=<file>;
	close(file);
	}
	
	my $temp=join('',@array);

	$temp=~s/(\$\w+)/$1/seeg;

	print $temp;
	
	exit 0;
}

$messages=$message;
$senders=$sender;

$sender=~s/ /+/g;
$sender=~s/$d//g;
$sender=~s/\n/+/g;

$message=~s/ /+/g;
$message=~s/$d//g;
$message=~s/\n/+/g;

$Jumper=$prefix;

$PagePass=$pass;
$PageTo=$number;

if($number=~m/-/g){
$Jumper=$number;
if($number=~m/^162/){$Jumper=~s/-(\w+)$//g;$PagePass=$1;};
#if($number=~m/^1188/){$Jumper=~s/-(\w+)$//g;
#		     $USER=$1;
#		     $Jumper=~s/-(\w+)$//g;
#		     $PASSWORD=$1;
#		};


$Jumper=~s/-(\d+)$//g;

$PageTo=$1;
$number=$PageTo;
$prefix=$Jumper;
}

if($first ne 'yes'){
$cookie{'prefixCook'}=$prefix;
$cookie{'numberCook'}=$number;
$cookie{'fromCook'}=$sender;
&set_cookie(time()+3600*24*31,"www.mthai.com","/mpager","0");

}else{
$cookie{'prefixCook'}=$prefix;
$cookie{'numberCook'}=$number;
$cookie{'fromCook'}=$sender;
&set_cookie(time()+3600*24*31,"www.mthai.com","/","0");

}

use IO::Socket;

#require 'siam.pl';
#require 'mac.pl';
#require 'ppa.pl';
#require 'pantip.pl';
#require 'blue.pl';
require 'sabye.pl';

#$siam="good";

#$mac="good";

#$ppa="good";

#$blue="good";

$sabye="good";

@result=("เรียบร้อยแล้วค่ะ","เรียบร้อยแล้วครับ","เรียบร้อยแล้วเด้อ","เรียบร้อยแล้วจ้า","เรียบร้อยแล้วจ๊ะ","สำเร็จ","บันไซ สำเร็จแล้วฮ่ะ","เรียบร้อยแล้วฮะ","ไม่มีปัญหา ส่งต่อได้เลยครับท่าน","เรียบร้อยแล้วเจ๊","เรียบร้อยแล้วนาย","โอ้ย ไม่น่าเชื่อ ส่งเพจไปได้อย่างหวุดหวิดจริงๆ อิอิ (success)","ส่งเรียบร้อยแล้วครับ ท่านผู้ชม!","ส่งไปถึงแล้ว เย้ๆ","ข้อความไปถึงนานแล้วเจ้าค่า..าา","ส่งอีกๆๆๆ  ถึงเรียบร้อยแล้ว","ถึงชัวร์ๆ อย่าลังเล","ส่งได้ตลอด บ่มีปัญหา","เรียบร้อยเจ้าค่ะ","ถึงแล้วค่ะ ชัวร์ๆ","ถึงเรียบร้อย ไม่ให้คอยนาน","เพจกี่ที ก็ไม่มีพลาด","ส่งอีกจิ เมื่อกี้สั้นไป","ไปไกลถึงสุไหงโกลก ก็ถึงนะเจ๊","มายารึนี่ ส่งเร็วจริงๆ","จะใกล้จะไกล ส่งไปอยู่แล้วว","ส่งกี่ทีๆ ก็ถึงใจ","ส่งไปถึงไหนก็ไม่พลาด","ขออภัยที่ปล่อยให้รอนาน เราส่งข้อความไปให้เป็นที่เรียบร้อยแล้วนะค่ะ");

$thenum=int(rand $#result);


#if($siam ne "bad"){
#$data=siam();
#if(($data=~m/Succeeded<\/FONT><\/TD><\/TR>/is)){ 
#$result=$result[$thenum];
#&suckcess;
#print "\n<BR>1";
#
#exit 0;
#}
#}


#if($blue ne "bad"){
#$data=blue();
#if(($data=~m/ส่งข้อความเรียบร้อย/is)){ 
#$result=$result[$thenum];
#&suckcess;
#print "\n<BR>b";
#print "Location: http://www.mthai.com/mPager1.html \n\n";
#&SUCCESS;print "<BR><BR>1";
#exit 0;
#}
#}

#if($ppa ne "bad"){
#$data=ppa();
#if($data=~m/<strong>OK<\/strong>/){
#$result=$result[$thenum];
#&suckcess;
#print "\n<BR>2";
#print "Location: http://www.mthai.com/mPager2.html \n\n";
#&SUCCESS;print "<BR><BR>2";
#exit 0;
#}
#}

#$data=pantip();
#if(($data=~m/[ส่งได้]/is)){ 
#&SUCCESS;print "<BR><BR>3";
#}

#if($mac ne "bad"){
#$data=mac();
#if(($data=~m/Can send/)){
#&SUCCESS;print "<BR><BR>3";
#exit 0;
#}
#}

if($sabye ne "bad"){ 
&sabye;
foreach $data(@data) {
	if($data=~m/<!-- Status -->ส่งได้/is){ 
	$result=$result[$thenum]; 
	&suckcess; 
	print "\n<BR>b"; 
	#print "Location: http://www.mthai.com/mPager1.html \n\n"; 
	#&SUCCESS;
	print "<BR><BR>"; 
	exit 0; 
} 
} 
}

@badbad=("ไม่สำเร็จ เสียใจด้วยน่ะนาย","ส่งไม่ไป สงสัยต้องขออีกรอบ","เสียใจค่ะ ระบบขัดข้อง ต้องลองใหม่","แงๆ ส่งไม่ได้  ไปใหม่อีกรอบ","บ่ฮู้เป็นอันหยัง ไปส่งอีกทีเด้อ","ส่งไม่ได้ เพจใหม่น่อ..ออ","พลาดไปแล้วนาย เพจใหม่กั๊บ","ระบบมันขอหายใจ  ส่งใหม่นะจ้ะ","ขออภัย ส่งใหม่อีกที","ส่งไม่ได้ เนื่องจากระบบปลายทางขัดข้อง กรุณาลองส่งใหม่");

$jinny=int(rand $#badbad);

$result=$badbad[$jinny];
if(length $prefix == 0){$result="ลืมใส่ ศูนย์เพจ"};

&suckcess;

exit 0;
#######################################error boy
sub suckcess{
open(file,"template.html");
my @array=<file>;
close(file);

my $Temp=join("",@array);

$Temp=~s/(\$\w+)/$1/seeg;

print "Content-type: text/html\n\n";

print $Temp;

#open(file,">mPager.html");
#print file $Temp;
#close(file);

#print "Location: http://www.mthai.com/mpager/mPager.html \n\n";
}

sub ERROR{
###############################Error
print <<LOOP
<font face="MS Sans Serif" size=small>
<body text="#000000" bgcolor="#FFFFFF" link="#0000EE" vlink="#3333FF" alink="#FFCC33">
<center>
<H2><b>One of Ryan's Utility</b></H2>
<H3>[M Pager]</H3>
<BR><BR>
<font color=#FF0000>ส่งไม่ได้ เนื่องจากมีปัญหาบางอย่างค่ะ !</font><BR><BR><BR>
ช่วยคลิ้กหน่อยนะค่ะ<BR>
|<BR>
|<BR>
|<BR>
|<BR>
V<BR><BR>
<!--- BEGIN CLICK2NET CODE --->
<center><a href="http://redirect.click2net.com/?A005757,5" target="_top">
<img border=0 alt="Click here to visit our sponsor" src="http://image.click2net.com/?A005757,5" width="468" height="60"></a>
<br><font face="arial,helvetica" size="1"><a href="http://www.click2net.com/">Free Advertising from Click2Net!</a></font></center>
<!--- END CLICK2NET CODE --->
<BR>
<p>This CGI is supported by <a href="http://www.siampage.com/pager/index.shtml">Siampage</a>
<p> และ <a href=http://std.cpc.ku.ac.th/~b39ast/pager/>Macro Art Unlimit Paging</a>
<p> และ <a href=http://ppapager.com/>PPA pager</a>
<p> The Three Greatest Unlimit Pager in Thailand.....!
</center>

LOOP
#####################error last chance
}

sub SUCCESS{
print <<LOOP
<font face="MS Sans Serif" size=small>
<body text="#000000" bgcolor="#FFFFFF" link="#0000EE" vlink="#3333FF" alink="#FFCC33">
<center>
<H2><b>One of Ryan's Utility</b></H2>
<H3>[M Pager]</H3>
<BR><BR>
<font color=#FF0000>ส่งเรียบร้อยแล้ว ค่ะ!</font><BR><BR><BR>
ช่วยคลิ้กหน่อยนะค่ะ<BR>
|<BR>
|<BR>
|<BR>
|<BR>
V<BR><BR>
<!--- BEGIN CLICK2NET CODE --->
<center><a href="http://redirect.click2net.com/?A005757,5" target="_top">
<img border=0 alt="Click here to visit our sponsor" src="http://image.click2net.com/?A005757,5" width="468" height="60"></a>
<br><font face="arial,helvetica" size="1"><a href="http://www.click2net.com/">Free Advertising from Click2Net!</a></font></center>
<!--- END CLICK2NET CODE --->
<BR>
<p>This CGI is supported by <a href="http://www.siampage.com/pager/index.shtml">Siampage</a>
<p> และ <a href=http://std.cpc.ku.ac.th/~b39ast/pager/>Macro Art Unlimit Paging</a>
<p> และ <a href=http://ppapager.com/>PPA pager</a>
<p> The Three Greatest Unlimit Pager in Thailand.....!
</center>
LOOP
}