#!/strawberry/perl/bin/perl -w
#print "Content-Type: text/html\n\n";
#print "Content-Type: text/plain\n\n";
#print "Content-Type: text";
#######################################################################################
open(F, '<:utf8', "mydomainname.txt");
my $domainname = <F>;
close F;
use strict;
use warnings;
use CGI;
use CGI::Carp qw( fatalsToBrowser warningsToBrowser );
use File::Copy;
use File::Basename;
use Image::Resize;
use Math::Round;
use CGI qw/ :standard /;
#use DBI;
#use File::Copy;
#use File::Basename;
#use CGI;
#use strict;
#use warnings;
#use Image::Resize;
#use IO::Handle;
$| = 1;
$CGI::POST_MAX = 1024 * 50000;
my $cgi = CGI->new;
print $cgi->header, $cgi->start_html;
warningsToBrowser(1);
my %param = $cgi->Vars;
my @upload_files = split("\0", $param{'uploadfile'});
my $sold = param('group2');
my @skip = (1,2,3,4,5,6,7,8,9);
$skip[0] = "blank";
$skip[1] = param('skip1');
$skip[2] = param('skip2');
$skip[3] = param('skip3');
$skip[4] = param('skip4');
$skip[5] = param('skip5');
$skip[6] = param('skip6');
$skip[7] = param('skip7');
$skip[8] = param('skip8');
my @result = (1,2,3,4,5,6,7,8,9,10,11,12,13,14);
$result[0] = "blank";
$result[1] = param('car');
$result[2] = param('price');
$result[3] = param('year');
$result[4] = param('fuel');
$result[5] = param('color');
$result[6] = param('mileage');
$result[7] = param('gearbox');
$result[8] = param('engine');
$result[9] = param('body');
$result[10] = param('desc');
$result[11] = param('available');
$result[12] = param('model');
$result[13] = param('reg');
$result[13] = uc($result[13]);
my $result1 = param('advert');
my $result14 = param('group1');
my $result15 = param('colortext');
if ($result[6] eq "Other" ){$result[6] = "$result15";}
if ($sold eq "blank" ){ $sold = "";}
if ($result[12] eq "blank" ){$result[12] = "";}
if ($result[13] eq "" ){$result[13] = "---- ---";}
if ($result14 eq "Just" ){goto JUST;}
else{}
if ($sold eq "No" ){goto SKIP0;}
else{
open(F, '>:utf8', "C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/$result[1]/available.txt");
print F "$sold";
close F;
goto SKIPend;
}
SKIP0:
my @bulletins = ("blank","car","price","year","fuel","color","mileage","gearbox","engine","body","desc","available","model","plate");
for my $i (1..13) {
open(F, '>:utf8', "C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/$result1/$bulletins[$i].txt");
print F "$result[$i]";
close F;
}
if ($result14 eq "No" ){goto SKIPend;}
JUST:
$CGI::POST_MAX = 1024 * 50000;
my $safe_filename_characters = "a-zA-Z0-9_.-";
my $num1 = "1";
my $query = new CGI;
my $complete = "Complete";
my $length = (1000 / 8);
$length = round( $length );
my $length2 = ($length * 8);
print"<center><img src='/segmant2.png' height='10px' width='$length2' /></center>";
print"<center>\n</center>";
print"<center>";
for my $i (1..8) {
my $filename = $query->param("uploadfile$i");
if (($filename eq "") && ($skip[$i] eq "") ){
copy("noimage.png","C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/$result1/$num1.png");
copy("noimagethumb1.png","C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/$result1/thumb$num1.png");
$complete = "Removed";
}
else{
if ($skip[$i] eq "skip"){$complete = "Skipped";}
else{
my $upload_filehandle = $query->upload("uploadfile$i");
open ( UPLOADFILE, ">$result1/file.jpg" ) or die "failed to open '$result1/$num1.jpg' $!"; binmode UPLOADFILE; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE;
copy("$result1/file.jpg","$result1/thumb1.jpg");
system("PhotoResize700x500ICO.exe $result1/file.jpg");
system("PhotoResize140x100ICO.exe $result1/thumb1.jpg");
move("$result1/file.jpg","file.jpg");
system('php roundimage.php');
move("file.png","C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/$result1/$num1.png");
move("$result1/thumb1.jpg","file.jpg");
system('php roundimage.php');
move("file.png","C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/$result1/thumb$num1.png");
$complete = "Complete";
}
}
$num1 = join "", $num1, "1";
print"<img src='/segmant.png' height='10px' width='$length' />";
}
SKIPend:
############### last updated ##############
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
$year += 1900;
$mon += 1;
my $updateddate = "$mday.$mon.$year";
open(F, '>:utf8', "C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/lastupdated.dat");
print F "Last Updated $updateddate";
close F;
############### last updated ##############
print "<h1><center>$domainname</center></h1>";
print "<h1><center>SUCCESSFULLY CHANGED</center></h1>";
print "<center><a href=\'http://www.$domainname.co.uk\'><img border='none' src='/homepagebutton.png' width='150px' alt='Back To Website' /></a> <a href=\"http://www.$domainname.co.uk/admin337648769.html\"><img border='none' src='/adminbutton.png' width='150px' /></a>";
if ($result[11] eq "Available"){
print "<h2><center>Upload Advert To Facebook Groups</h2>\n\n";
print "<h1><center><a href=\'facebookgraph.pl?model=$result[12];advert=$result1;car=$result[1];price=$result[2];year=$result[3];fuel=$result[4];color=$result[5];mileage=$result[6];gearbox=$result[7];engine=$result[8];body=$result[9];desc=$result[10];'><img border='none' src='/facebook-button.gif' width='100px' /></a></h1>\n";
}
else{}
exit;
MAIN
SEARCH
WHO'S 
LOG 
before.JPG