;
close FIRSTFILE;
return 0 unless open(SECONDFILE,">$secondfile");
foreach $line (@lines) {
print SECONDFILE $line;
}
close SECONDFILE;
return 0 unless unlink($firstfile);
return 1;
}
##############################################
# SUB: Send E-mail
sub sendemail {
use Socket;
$TO=$_[0]; @TO=split('\0',$TO);
$SUBJECT=$_[1];
$REPLYTO=$_[2];
$REMOTE = $_[3];
$THEMESSAGE = $_[4];
if ($REMOTE =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) {
$addr = pack('C4', $1, $2, $3, $4);
}
else { die("Bad IP address: $!"); }
$port = 25 unless $port;
$port = getservbyname($port,'tcp') if $port =~ /\D/;
$proto = getprotobyname('tcp');
socket(S, PF_INET, SOCK_STREAM, $proto) or die("Socket failed: $!");
$sockaddr = 'S n a4 x8'; # shouldn't this be in Socket.pm?
connect(S, pack($sockaddr, AF_INET, $port, $addr)) or die("Unable to connect: $!");
select(S); $| = 1; select(STDOUT);
$a=;
print S "HELO ${SERVERNAME}\n";
$a=;
print S "MAIL FROM:postmaster\@transportuniverse\.com\n";
$a=;
print S "RCPT TO:<$TO[0]>\n";
$a=;
if ($#TO > 0) { foreach (1..$#TO) { print S "RCPT TO: $TO[$_]\n";$a=; }
}
print S "DATA \n";
$a=;
print S "To: $TO[0]\n";
if ($#TO > 0) { foreach (1..$#TO) { print S "Cc: $TO[$_]\n"; }
}
print S "Subject: $SUBJECT\n";
# Print the body
print S "$THEMESSAGE\n";
print S ".\n";
$a=;
print S "QUIT";
close (S);
}
##############################################
# Sub: Get Form Data
sub get_form_data {
$buffer = "";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$buffer);
foreach $pair (@pairs)
{
@a = split(/=/,$pair);
$name=$a[0];
$value=$a[1];
$value =~ s/\+/ /g;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
$value =~ s/[\n\r]/ /sg; #remove \n
$value =~ s/\[\]//g; #remove []
push (@data,$name);
push (@data, $value);
}
%form=@data;
%form;
}
##############################################
# Sub: File Lock
sub filelock {
flock (NEWITEM, 2);
seek(NEWITEM, 0, 2);
}
##############################################
# Sub: Remove Item
sub selldel1 {
if (unlink("$basepath$form{'CAT'}/$form{'ITEM'}.dat")) {
print "\n";
print "\n";
print "Your SUPER CLASSIFIED AD has been deleted!\n";
print "\n";
}
else {
print "\n";
print "\n";
print "File Could Not Be Removed!\n";
print "\n";
}
}
#################################
sub Parse_Form {
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
@pairs = split(/&/, $ENV{'QUERY_STRING'});
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
if ($ENV{'QUERY_STRING'}) {
@getpairs =split(/&/, $ENV{'QUERY_STRING'});
push(@pairs,@getpairs);
}
} else {
print "Content-type: text/html\n\n";
print "Use Post or Get";
}
foreach $pair (@pairs) {
($key, $value) = split (/=/, $pair);
$key =~ tr/+/ /;
$key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~s///g;
if ($formdata{$key}) {
$formdata{$key} .= ", $value";
} else {
$formdata{$key} = $value;
}
}
}
#################################
sub ErrorMessage {
print "Content-type: text/html\n\n";
print "The server can't open the file. It either doesn't exist or the permissions are wrong. \n";
exit;
}
#################################
##############################################
# Sub: Process Item Listing and go to Payment Form
#
sub proccessor {
if (($regdir ne "") && !($newbidflag)) {
$form{'USERNAME'} =~ s/\W//g;
$form{'USERNAME'} = lc($form{'USERNAME'});
$form{'USERNAME'} = ucfirst($form{'USERNAME'});
$form{'PAGENT'} =~ s/\W//g;
$form{'PAGENT'} = lc($form{'PAGENT'});
$form{'PAGENT'} = ucfirst($form{'PAGENT'});
&oops('USERNAME') unless (open(REGFILE, "$basepath$regdir/$form{'USERNAME'}.dat"));
($password, $form{'EMAIL'}, $form{'ADDRESS1'}, $form{'ADDRESS2'}, $form{'ADDRESS3'}, @userbids) = ;
close REGFILE;
chomp($password, $form{'EMAIL'}, $form{'ADDRESS1'}, $form{'ADDRESS2'}, $form{'ADDRESS3'}, @userbids);
&oops('PASSWORD') unless ((lc $password) eq (lc $form{'PASSWORD'}));
}
&oops('USERNAME') unless ($form{'USERNAME'});
&oops('EMAIL') unless ($form{'EMAIL'} =~ /.+\@.+/);
&oops('PRICE') unless ($form{'BID'} =~ /^(\d+\.?\d*|\.\d+)$/);
$form{'BID'} = &parsebid($form{'BID'});
&oops('ADDRESS1') unless ($form{'ADDRESS1'});
&oops('ADDRESS2') unless ($form{'ADDRESS2'});
&oops('ADDRESS3') unless ($form{'ADDRESS3'});
$timenum = time;
$thetime = localtime(time);
&oops('ITEM') unless (open ITEM, "$basepath$form{'CATEGORY'}/temp/$form{'ITEM'}.dat");
($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $views, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = - ;
close ITEM;
chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $views, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
@lastbid = split(/\[\]/,$bids[$#bids]);
if ((((time <= $form{'ITEM'}) || (time <= (60 * $aftermin + $lastbid[3]))) && ($form{'BID'} >= $lastbid[2] + $inc)) || ($newbidflag == 1)) {
&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY'}/temp/$form{'ITEM'}.dat");
&filelock if ($flock);
print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
close NEWITEM;
if ($form{'CATEGORY2'} ne "") {
&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY2'}/temp/$form{'ITEM'}.dat");
&filelock if ($flock);
print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
close NEWITEM;
}
if ($form{'CATEGORY3'} ne "") {
&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY3'}/temp/$form{'ITEM'}.dat");
&filelock if ($flock);
print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
close NEWITEM;
}
if ($form{'CATEGORY4'} ne "") {
&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY4'}/temp/$form{'ITEM'}.dat");
&filelock if ($flock);
print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
close NEWITEM;
}
$flag=0;
foreach $userbid(@userbids) {
$flag=1 if ("$form{'CATEGORY'}$form{'ITEM'}" eq $userbid);
}
if ($flag==0 && $regdir ne "") {
&oops('USERNAME') unless (open(REGFILE, ">>$basepath$regdir/$form{'USERNAME'}.dat"));
print REGFILE "\n$form{'CATEGORY'}$form{'ITEM'}\[\]$form{'CATEGORY2'}$form{'ITEM'}\[\]$form{'CATEGORY3'}$form{'ITEM'}\[\]$form{'CATEGORY4'}$form{'ITEM'}";
close REGFILE;
}
}
else {
print "Either the classified ad is closed or your bid is too low.
Hit the back button and reload to get the latest ad stats, then try again!\n";
}
##################################################
# Determine amount to charge and prepare to send user to secure server
#
$totaled = $form{'BID'};
#$reserv = $form{'RESERVE'}; #use this line for auctions only
$reserv = 0; #and this one for super
if ((($totaled > 1000) && ($totaled <= 50000)) || (($reserv > 1000) && ($reserv <= 50000))) { $total = 9.95; $payagent = 5.00; $payreferal = .50; $payreferredby = .50;}
elsif ((($totaled > 50000) && ($totaled <= 100000)) || (($reserv > 50000) && ($reserv <= 100000))) { $total = 19.95; $payagent = 10.00; $payreferal = 1.00; $payreferredby = 1.00;}
elsif ((($totaled > 100000) && ($totaled <= 1000000)) || (($reserv > 100000) && ($reserv <= 1000000))) { $total = 29.95; $payagent = 15.00; $payreferal = 1.50; $payreferredby = 1.50;}
elsif (($totaled > 1000000) || ($reserv > 1000000)) { $total = 49.95; $payagent = 25.00; $payreferal = 2.50; $payreferredby = 2.50;}
else { print "please click your browser's BACK button and check all fields\n\n"; }
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# writes the payment info into the Agents /IDs/waiting file
#
$iddir = "IDs";
if (-e "/u1/www/transportuniverse/agents/$iddir/$form{'PAGENT'}.dat") {
open(AGENTFILE, "/u1/www/transportuniverse/agents/$iddir/$form{'PAGENT'}.dat");
($password, $email, $name, $address1, $address2, $phone, $referal) = ;
close AGENTFILE;
chomp($password, $email, $name, $address1, $address2, $phone, $referal);
open(AGENTWAITING, ">/u1/www/transportuniverse/agents/$iddir/waiting/$form{'ITEM'}$form{'PAGENT'}.dat");
print AGENTWAITING "$payagent\n$referal\nsuper\n$form{'ITEM'}\n$form{'USERNAME'}";
close AGENTWAITING;
}
$referal =~ s/\W//g;
$referal = lc($referal);
$referal = ucfirst($referal);
# mustedit # print "Referal is $referal
\n";
if (-e "/u1/www/transportuniverse/agents/$iddir/$referal.dat") {
open(AGENTFILE, "/u1/www/transportuniverse/agents/$iddir/$referal.dat");
($password, $email, $name, $address1, $address2, $phone, $referredby) = ;
close AGENTFILE;
chomp($password, $email, $name, $address1, $address2, $phone, $referredby);
open(AGENTWAITING, ">/u1/www/transportuniverse/agents/$iddir/waiting/$form{'ITEM'}$referal.dat");
print AGENTWAITING "$payreferal\n$referredby\nsuper\n$form{'ITEM'}\n$form{'USERNAME'} \| $form{'PAGENT'}";
close AGENTWAITING;
}
$referredby =~ s/\W//g;
$referredby = lc($referredby);
$referredby = ucfirst($referredby);
# mustedit # print "Referredby is $referredby\n";
if (-e "/u1/www/transportuniverse/agents/$iddir/$referredby.dat") {
open(AGENTFILE, "/u1/www/transportuniverse/agents/$iddir/$referredby.dat");
($password, $email, $name, $address1, $address2, $phone, $referredfrom) = ;
close AGENTFILE;
chomp($password, $email, $name, $address1, $address2, $phone, $referredfrom);
open(AGENTWAITING, ">/u1/www/transportuniverse/agents/$iddir/waiting/$form{'ITEM'}$referredby.dat");
print AGENTWAITING "$payreferredby\n$referredfrom\nsuper\n$form{'ITEM'}\n$form{'USERNAME'} \| $form{'PAGENT'} \| $referal";
close AGENTWAITING;
}
####################################
print<<"EOF";
Online Payment: Please Click Continue...
EOF
print "
$total is the total cost of your listing.
Click the CONTINUE button below to make your payment on our Secure Server. You will have the option of paying by Visa, MasterCard, American Express, or by check.
\n\n";
###########################################
$formnumber = $form{'ITEM'};
$formuser = $form{'USERNAME'};
$formcategory = $form{'CATEGORY'};
$formcategory2 = $form{'CATEGORY2'};
$formcategory3 = $form{'CATEGORY3'};
$formcategory4 = $form{'CATEGORY4'};
$formsite = super;
$formtitle = $form{'TITLE'};
$formprice = $totaled;
$formagent = $form{'PAGENT'};
print<<"EOF";
EOF
print "\n";
#
#
#####
}
##################################################
#Sub accepted to post an item if CC is accepted
#
sub accepted {
&Parse_Form;
open REGFILE, "$basepath$regdir/$form{'PALIAS'}.dat";
($password,$email,$add1,$add2,$add3,@junk) = ;
chomp($password,$email,$add1,$add2,$add3,@junk);
@data = ;
close REGFILE;
####################### @firstbid = split(/\[\]/,$bids[0]);
@lineiwant = split(/\[\]/,$junk[-1]);
foreach $dog (@lineiwant) {
$fileiwant = $dog;
$fileiwant =~ s/\D//g;
$catiwant = $dog;
$catiwant =~ s/[0-9]//g;
######################## open .txt file and convert to .dat file #######################
open TXTFILE, "$basepath$catiwant/temp/$fileiwant.dat";
($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $views, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = ;
$title =~ s/\"//g; # quotes cause problems for a text input field
chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $views, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
close TXTFILE;
open DATFILE, ">$basepath$catiwant/$fileiwant.dat";
&filelock if ($flock);
print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\n$report\n$pic\n$views\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n@bids\n";
close DATFILE;
@lastbid = split(/\[\]/,$bids[$#bids]);
############# WRITE LINE TO SEARCH DATABASE ############################
#####################################################################
# # # # # # # # # # # # # # # # # # # # # #
$category = $catiwant;
if ($category =~ /auto_/) { $category = "CAR"; } elsif ($category =~ /truck_/) { $category = "TRUCK"; } elsif ($category =~ /van_/) { $category = "VAN"; } elsif (category =~ /camper_/) { $category = "CAMPER"; } elsif ($category =~ /bus_/) { $category = "BUS"; } elsif ($category =~ /cycle_/) { $category = "MOTORCYCLE"; } elsif ($category =~ /rec_/) { $category = "RECREATION"; } elsif ($category =~ /race_/) { $category = "RACING"; } elsif ($category =~ /boat_/) { $category = "BOAT"; } elsif ($category =~ /plane_/) { $category = "PLANE"; } elsif ($category =~ /heli_/) { $category = "HELI"; } elsif ($category =~ /train_/) { $category = "TRAIN"; } elsif ($category =~ /farm_/) { $category = "FARM"; } elsif ($category =~ /mili_/) { $category = "MILITARY"; } elsif ($category =~ /emer_/) { $category = "EMERGENCY"; } elsif ($category =~ /cons_/) { $category = "CONSTRUCTION"; } elsif ($category =~ /vess_/) { $category = "VESSEL"; } elsif ($category =~ /space_/) { $category = "SPACE"; } elsif ($category =~ /misc_parts/) { $category = "PARTS"; } elsif ($category =~ /misc_access/) { $category = "ACCESSORIES"; } elsif ($category =~ /misc_collect/) { $category = "COLLECTIBLES"; } else { $category = $key; }
# # # # # # # # # # # # # # # # # # # # # #
}
&sendemail('postmaster@transportuniverse.com', 'Paid Super Listing Posted', 'nobody', $mailserver, "A PAID listing has been placed on the nuSUPER site\n\nTITLE\: $title\n\nVISIT\:
http://$scripturl$ENV{'SCRIPT_NAME'}\?$form{'PCATEGORY'}\&$fileiwant\n\nPRICE is \$$form{'PPRICE'}.\n\nThis listing has been placed in the following categories\:\n$form{'PCATEGORY'}\n$form{'PCATEGORY2'}\n$form{'PCATEGORY3'}\n$form{'PCATEGORY4'}\n\n$signature");
$timenum = time;
open DATFILE, ">>/u1/www/transportuniverse/logs/posted.txt";
print DATFILE "$timenum\|1\|$catiwant\|$item\|$price\|$form{'PAGENT'}\n";
close DATFILE;
###################### end of conversion #######################
print "$form{'PALIAS'}, your Item Number is $form{'PITEM'}. Your item has been listied in the following categories: $category{$form{'PCATEGORY'}} $category{$form{'PCATEGORY2'}} $category{$form{'PCATEGORY3'}} $category{$form{'PCATEGORY4'}} You may wish to print this notice as confirmation of your Auction Listing.
| CLICK HERE TO VIEW YOUR LISTING.
FROM THERE YOU SHOULD ADD A FREE COMPREHENSIVE CONDITION REPORT FOR YOUR LISTING
Attract serious interest from serious buyers by providing them with the essential details found in one our exclusive reports. |
|
|
\n";
# # # # # # # # # # # # # # # # # # # # # # # # # # #
#List all paid registrations in /IDs/paythese/ to see what agents are due payment
#Format is: payout[]referal[]site[]itemnumber[]lister # referal # referredby[]category1[]category2[]category3[]category4
$iddir = "IDs";
if (-e "/u1/www/transportuniverse/agents/$iddir/waiting/$form{'PITEM'}$form{'PAGENT'}.dat") {
open(AGENTPAID, "/u1/www/transportuniverse/agents/$iddir/waiting/$form{'PITEM'}$form{'PAGENT'}.dat");
($payout,$referal,$trantype,$itemnumber,$lister) = ;
chomp($payout,$referal,$trantype,$itemnumber,$lister);
close AGENTPAID;
open(NEWPAY, ">>/u1/www/transportuniverse/agents/$iddir/paythese/$form{'PAGENT'}.dat");
print NEWPAY "$payout\[\]$referal\[\]$trantype\[\]$itemnumber\[\]$lister\[\]$form{'PCATEGORY'}\[\]$form{'PCATEGORY2'}\[\]$form{'PCATEGORY3'}\[\]$form{'PCATEGORY4'}\n";
close NEWPAY;
open(NEWPAYAGENT, ">>/u1/www/transportuniverse/agents/$iddir/$form{'PAGENT'}.dat");
print NEWPAYAGENT "$payout\[\]$referal\[\]$trantype\[\]$itemnumber\[\]$lister\[\]$form{'PCATEGORY'}\[\]$form{'PCATEGORY2'}\[\]$form{'PCATEGORY3'}\[\]$form{'PCATEGORY4'}\n";
close NEWPAYAGENT;
unlink("/u1/www/transportuniverse/agents/$iddir/waiting/$form{'PITEM'}$form{'PAGENT'}.dat");
}
if (-e "/u1/www/transportuniverse/agents/$iddir/waiting/$form{'PITEM'}$form{'PREFERAL'}.dat") {
open(AGENTPAID, "/u1/www/transportuniverse/agents/$iddir/waiting/$form{'PITEM'}$form{'PREFERAL'}.dat");
($payout,$referredby,$trantype,$itemnumber,$lister) = ;
chomp($payout,$referredby,$trantype,$itemnumber,$lister);
close AGENTPAID;
open(NEWPAY, ">>/u1/www/transportuniverse/agents/$iddir/paythese/$form{'PREFERAL'}.dat");
print NEWPAY "$payout\[\]$referredby\[\]$trantype\[\]$itemnumber\[\]$lister\[\]$form{'PCATEGORY'}\[\]$form{'PCATEGORY2'}\[\]$form{'PCATEGORY3'}\[\]$form{'PCATEGORY4'}\n";
close NEWPAY;
open(NEWPAYAGENT, ">>/u1/www/transportuniverse/agents/$iddir/$form{'PREFERAL'}.dat");
print NEWPAYAGENT "$payout\[\]$referredby\[\]$trantype\[\]$itemnumber\[\]$lister\[\]$form{'PCATEGORY'}\[\]$form{'PCATEGORY2'}\[\]$form{'PCATEGORY3'}\[\]$form{'PCATEGORY4'}\n";
close NEWPAYAGENT;
unlink("/u1/www/transportuniverse/agents/$iddir/waiting/$form{'PITEM'}$form{'PREFERAL'}.dat");
}
if (-e "/u1/www/transportuniverse/agents/$iddir/waiting/$form{'PITEM'}$form{'PREFERREDBY'}.dat") {
open(AGENTPAID, "/u1/www/transportuniverse/agents/$iddir/waiting/$form{'PITEM'}$form{'PREFERREDBY'}.dat");
($payout,$referredfrom,$trantype,$itemnumber,$lister) = ;
chomp($payout,$referredfrom,$trantype,$itemnumber,$lister);
close AGENTPAID;
open(NEWPAY, ">>/u1/www/transportuniverse/agents/$iddir/paythese/$form{'PREFERREDBY'}.dat");
print NEWPAY "$payout\[\]$referredfrom\[\]$trantype\[\]$itemnumber\[\]$lister\[\]$form{'PCATEGORY'}\[\]$form{'PCATEGORY2'}\[\]$form{'PCATEGORY3'}\[\]$form{'PCATEGORY4'}\n";
close NEWPAY;
open(NEWPAYAGENT, ">>/u1/www/transportuniverse/agents/$iddir/$form{'PREFERREDBY'}.dat");
print NEWPAYAGENT "$payout\[\]$referredfrom\[\]$trantype\[\]$itemnumber\[\]$lister\[\]$form{'PCATEGORY'}\[\]$form{'PCATEGORY2'}\[\]$form{'PCATEGORY3'}\[\]$form{'PCATEGORY4'}\n";
close NEWPAYAGENT;
unlink("/u1/www/transportuniverse/agents/$iddir/waiting/$form{'PITEM'}$form{'PREFERREDBY'}.dat");
}
#
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
}
###########################################
#------------------------------------------------------#
# Sub Upload Form for uploading an image file
#------------------------------------------------------#
sub uploadform {
#------------------------------------------------------#
if ($allowupload == 0) {
&newitem;
exit 0;
}
if ($uploadcharge ne '0') { $chargetext = "There is a \$$uploadcharge charge for file uploads"; }
if ($uploadcharge eq '0') { $chargetext = "This service is free"; }
print <<"EOF";
SELL YOUR ITEM WITH SUPER CLASSIFIEDS
The most important step you
can take towards selling your item
is to include a picture with your listing. We never charge you to
add photos to your description! In fact, if you are unable to use
our free upload service, please mail us your photos to the
address
below and we will be happy to add them to your item's description!
OR
Please send all photos to:
TRANSPORT UNIVERSE PHOTOS
Box 366 Pittsfield, New Hampshire 03263
Image Upload Help
When you click on the Browse button, a window will open
allowing you to look at the files on your computer. This window is
local to your system and is not viewable or accessible to anyone
else. Use this window to locate the image you wish to upload and
store on our server. The window will display files on your hard
drive. You can use the drop-down menu to select other drives for
photos that may be on a diskette or a CD. When you locate the
image, double-click on it, or select it and click on the "Open"
button. The name of the file will then appear in the Picture File
box. Click the "Continue" button directly below the
Picture File box to continue on to the item information page.
Image Upload is a free service provided by Transport Universe.
Adding an image to your item's description page dramatically increases
the effectiveness of your listing. Buyers want to see what they
are buying! An image in conjunction with our free Item Condition
Report will provide buyers with every detail they need to make that
all-important decision to buy YOUR item!
If you need further assistance with the Image Upload process, please
contact us at:
service\@transportuniverse.com |
EOF
}
#------------------------------------------------------#
##############################################
# Sub: Seller add engineer report
# This allows the seller to add a report to the item. p.s. of course it works...
#
sub addreport {
&oops('USERNAME') unless ($form{'USERNAME'});
&oops('PASSWORD') unless ($form{'PASSWORD'});
$form{'USERNAME'} =~ s/\W//g;
$form{'USERNAME'} = lc($form{'USERNAME'});
$form{'USERNAME'} = ucfirst($form{'USERNAME'});
open REGFILE, "$basepath$regdir/$form{'USERNAME'}.dat";
($password,$email,$add1,$add2,$add3,@junk) = ;
chomp($password,$email,$add1,$add2,$add3,@junk);
close REGFILE;
open THEFILE, "$basepath$form{'CAT'}/$form{'ITEM'}.dat";
($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $views, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = ;
$title =~ s/\"//g; # quotes cause problems for a text input field
chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $views, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
close THEFILE;
open DATFILE, ">$basepath$form{'CAT'}/$form{'ITEM'}.dat";
&filelock if ($flock);
print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\nY\n$pic\n$views\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n@bids\n";
close DATFILE;
if ($cat2 ne "") {
open DATFILE, ">$basepath$cat2/$form{'ITEM'}.dat";
&filelock if ($flock);
print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\nY\n$pic\n$views\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n@bids\n";
close DATFILE;
}
if ($cat3 ne "") {
open DATFILE, ">$basepath$cat3/$form{'ITEM'}.dat";
&filelock if ($flock);
print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\nY\n$pic\n$views\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n@bids\n";
close DATFILE;
}
if ($cat4 ne "") {
open DATFILE, ">$basepath$cat4/$form{'ITEM'}.dat";
&filelock if ($flock);
print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\nY\n$pic\n$views\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n@bids\n";
close DATFILE;
}
@firstbid = split(/\[\]/,$bids[0]);
@lastbid = split(/\[\]/,$bids[$#bids]);
$reporttype = $form{'reporttype'};
$numba = $form{'ITEM'};
if ($firstbid[0] eq $form{'USERNAME'}) {
if (lc($password) eq lc($form{'PASSWORD'})) {
if ($reporttype=~ m/land/) { &addland; }
elsif ($reporttype=~ m/sea/) { &addsea; }
elsif ($reporttype=~ m/air/) { &addair; }
elsif ($reporttype=~ m/condition/) { &addcondition; }
else { print "not working yet\n\n"; }
}
else {
print "\n";
print "Incorrect Password!\n";
print "\n";
}
}
else {
print "\n";
print "Only the seller may make modifications to the listing!\n";
print "\n";
}
}
############################################### Make Index file from current super listings.
sub indexer
{
foreach $key (sort keys %category) {
opendir THEDIR, "/u1/www/transportuniverse/super/$key" || die "Unable to open directory: $!";
@allfiles = readdir THEDIR;
closedir THEDIR;
foreach $file (sort { int($a) <=> int($b) } @allfiles) {
if (-T "/u1/www/transportuniverse/super/$key/$file") {
open THEFILE, "/u1/www/transportuniverse/super/$key/$file";
($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $views, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = ;
close THEFILE;
chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $views, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
if ($site eq "T.U.") {
@firstbid = split(/\[\]/,$bids[0]);
@lastbid = split(/\[\]/,$bids[$#bids]);
$price = $lastbid[2];
$seller = $firstbid[0];
$filenumba = $file;
$filenumba =~ s/\D//g;
$reportfile = $filenumba . "r" . ".txt";
$pic = "Y" if ($image);
$item = $filenumba; $site = "T.U."; $type = "super"; $currency = "USD";
if (-e "/u1/www/transportuniverse/reports/$reportfile") { $report = "Y"; } else { $report = " "; }
$url = "http://www.transportuniverse.com/cgi-transportuniverse/super.cgi\?$key\&$filenumba";
if ($key eq $cat1) {
open DATFILE, ">>/u1/www/transportuniverse/db2/sssss.txt";
print DATFILE "\|$pic\|$report\|$year\|$make\|$model\|$vin\|$interior\|$exterior\|$mileage\|$price\|USD\|$zip\|$country\|$state\|$city\|$item\|0\|$url\|$title\|\n";
close DATFILE;
}
}
}
}
}
}
###########################################################
############################# convert ISM update file into PROPERTY and INDEX files
sub update
{
$database = "/u1/www/transportuniverse/dbism/tuexportmeta.txt";
open(DB, "$database");
(@alllines) = ;
close DB;
chomp(@alllines);
foreach $line (@alllines) {
@fields = split(/\|/,$line);
#### print DATFILE "\|$pic\|$report\|$year\|$make\|$model\|$vin\|$interior\|$exterior\|$mileage\|$price\|USD\|$zip\|$country\|$state\|$city\|$item\|0\|$url\|$title\|\n";
#@table_fields = (" ","PIC","YEAR","MAKE","MODEL","VIN","INT","EXT","MILES","PRICE","CURRENCY","ZIP","COUNTRY","STATE","CITY","ITEM NO","DEALER NO","ITEM PAGE URL","TITLE","CONTACT","CATEGORY1","CAT2","CAT3","CAT4","IMAGE1","IMAGE2","IMAGE3","IMAGE4","DESCRIPTION");
if ($fields[18] eq "None") { $fields[18] = "$fields[2] $fields[3] $fields[4]"; }
if ($fields[28] eq "None") { $fields[28] = "$fields[2] $fields[3] $fields[4]"; }
if ($fields[8] eq "None") { $fields[8] = ""; }
open DATFILE, ">>/u1/www/transportuniverse/dbism/addtosuper.txt";
print DATFILE "\|$fields[1]\| \|$fields[2]\|$fields[3]\|$fields[4]\|$fields[5]\|$fields[6]\|$fields[7]\|$fields[8]\|$fields[9]\|USD\|$fields[11]\|USA\|$fields[13]\|$fields[14]\|$fields[15]\|$fields[16]\|$fields[17]\|$fields[18]\|\n";
close DATFILE;
$pic = $fields[1]; $report = " "; $year = $fields[2]; $make = $fields[3]; $model = $fields[4]; $vin = $fields[5]; $int = $fields[6]; $ext = $fields[7]; $mileage = $fields[8]; $price = $fields[9]; $currency = "USD"; $zip = $fields[11]; $country = USA; $state = $fields[13]; $city = $fields[14]; $item = $fields[15]; $dealer = $fields[16]; $url = $fields[17]; $title = $fields[18]; $cont = $fields[19]; $cat1 = $fields[20]; $cat2 = $fields[21]; $cat3 = $fields[22]; $cat4 = $fields[23]; $image1 = $fields[24]; $image2 = $fields[25]; $image3 = $fields[26]; $image4 = $fields[27]; $desc = $fields[28];
if ($title eq "None") { $title = "$year $make $model"; }
if ($desc eq "None") { $desc = "$year $make $model"; }
if ($mileage eq "None") { $mileage = ""; }
if ($image eq " ") { $image = ""; }
if ($image2 eq " ") { $image2 = ""; }
if ($image3 eq " ") { $image3 = ""; }
if ($image4 eq " ") { $image4 = ""; }
open DATFILE, ">$basepath$cat1/$item.dat";
&filelock if ($flock);
print DATFILE "$item\nISM\nsuper\n$cat1\n$cat2\n$cat3\n$cat4\nISM\n$year\n$make\n$model\n$vin\n$mileage\n$int\n$ext\n$price\nUSD\n$reserve\n$inc\n$city\n$state\nUSA\n$zip\n$report\n$pic\n$views\n$image1\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\nISM\[\]sbaker\@ismservices.net\[\]$price\[\]$item\[\]ISM Services\[\]9502 Highway 80 W\[\]Fort Worth TX 76116 -- 817-640-0054\[\]\n";
close DATFILE;
}
}
#################################
############################################### create a list of agents and information to print
sub qonvert
{
print " username | email | name | address1 | address2 | phone | referal | bids |
";
opendir THEDIR, "/u1/www/transportuniverse/agents/IDs" || die "Unable to open directory: $!";
@allfiles = readdir THEDIR;
closedir THEDIR;
foreach $file (sort { int($a) <=> int($b) } @allfiles) {
if (-T "/u1/www/transportuniverse/agents/IDs/$file") {
open THEFILE, "/u1/www/transportuniverse/agents/IDs/$file";
($username, $email, $name, $address1, $address2, $phone, $referal, @bids) = ;
close THEFILE;
chomp($username, $email, $name, $address1, $address2, $phone, $referal, @bids);
print " $username | $email | $name | $address1 | $address2 | $phone | $referal | @bids |
";
}
}
print "
";
}
#####################################################################