CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner:
problem using array inside for loop inside if statement

 



gerble1000
User

Oct 16, 2012, 12:16 PM

Post #1 of 18 (2391 views)
problem using array inside for loop inside if statement Can't Post

i have narrowed this problem down to this code here


Code
for my $i (1..8) {  
if (($filename eq "") & ($skip[$i] eq "") ){
do something
}
else{
do something else
}

print"<img src='/segmant.png' height='10px' width='10px' >";

}


now what the code does is make a loading screen whilst uploading images to server.
the problem is when it prints the image i get a space or something between the images i am trying to print.
the error comes from the array inside the if statement.
could somebody explain why it is doing this


Laurent_R
Veteran / Moderator

Oct 16, 2012, 11:52 PM

Post #2 of 18 (2385 views)
Re: [gerble1000] problem using array inside for loop inside if statement [In reply to] Can't Post

I don't understand your problem, but you probably want this line corrected as follows:

if (($filename eq "") && ($skip[$i] eq "") ){


gerble1000
User

Oct 17, 2012, 12:07 AM

Post #3 of 18 (2383 views)
Re: [Laurent_R] problem using array inside for loop inside if statement [In reply to] Can't Post

i shall see if this fixes it if not i will send you a link so you can see what i mean.
i have another easy question if you dont mind answering please.
what is the difference between the two sintax as sometimes i need to alternate the two to get some code to work



Code
if ($var eq 'something') 
{
do something
}

if ($var == 'something')
{
do something
}


i dont know the difference between == and eq


gerble1000
User

Oct 17, 2012, 1:17 AM

Post #4 of 18 (2380 views)
Re: [gerble1000] problem using array inside for loop inside if statement [In reply to] Can't Post

that did not make any difference to the problem in hand but i have made the sintax change :)
here are to images 1 is what i am getting and the other is what i would like to see. the bar works fine on another script i am using. the only difference is i am using an array inside this loop.
Attachments: before.JPG (14.9 KB)
  after.JPG (13.2 KB)


rovf
Veteran

Oct 17, 2012, 7:05 AM

Post #5 of 18 (2376 views)
Re: [gerble1000] problem using array inside for loop inside if statement [In reply to] Can't Post


In Reply To
i dont know the difference between == and eq


See

perldoc perlop

and have a look at the section Equality Operators. It also explains the other comparision operators.


FishMonger
Veteran / Moderator

Oct 17, 2012, 7:26 AM

Post #6 of 18 (2374 views)
Re: [gerble1000] problem using array inside for loop inside if statement [In reply to] Can't Post

You need to show us your code, but it looks to me to be an html/css issue which has nothing to do with Perl.


gerble1000
User

Oct 17, 2012, 8:18 AM

Post #7 of 18 (2370 views)
Re: [FishMonger] problem using array inside for loop inside if statement [In reply to] Can't Post

but the code works fine if i do not use an array.


FishMonger
Veteran / Moderator

Oct 17, 2012, 8:35 AM

Post #8 of 18 (2366 views)
Re: [gerble1000] problem using array inside for loop inside if statement [In reply to] Can't Post

Then the problem is obviously on line 125.


gerble1000
User

Oct 17, 2012, 10:19 AM

Post #9 of 18 (2357 views)
Re: [FishMonger] problem using array inside for loop inside if statement [In reply to] Can't Post

here is the full code

Code
#!/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>&nbsp;&nbsp;<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;



FishMonger
Veteran / Moderator

Oct 17, 2012, 11:35 AM

Post #10 of 18 (2352 views)
Re: [gerble1000] problem using array inside for loop inside if statement [In reply to] Can't Post

Wow, that's a perfect example of bad spaghetti code.

Your code indentation is inconsistent (i.e., horrible).

Remove the commented out use statements

Remove the second use CGI statement.

Remove ALL goto statements.

Why are you initializing the @skip and @result arrays and then immediately overwrite those initializations?

Use var names that describe what the vars hold. The @skip and @result var names are too generic and don't say anything about what they hold. Personally, I'd get rid of the results array and use separate scalars for each of those elements. Or if you wish, you could use a %results hash.

What does your skip1..skip8 params supposed to do/represent?

Don't put multiple statements on a single line.

Remove the depreciated <center></center> tags and instead use css to style the page.

Remove the empty else{} block.


(This post was edited by FishMonger on Oct 17, 2012, 11:37 AM)


gerble1000
User

Oct 17, 2012, 11:52 AM

Post #11 of 18 (2346 views)
Re: [FishMonger] problem using array inside for loop inside if statement [In reply to] Can't Post

ok i will do all those things tomorow. thankyou.
and that wasnt scarcasm im just a messy coder :)


gerble1000
User

Oct 17, 2012, 2:20 PM

Post #12 of 18 (2341 views)
Re: [FishMonger] problem using array inside for loop inside if statement [In reply to] Can't Post

ok i am working on cleaning up the arrays.
does this code look like the best way to do it.

old

Code
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');


new

Code
my @resultnames = (blank,car,price,year,fuel,color,mileage,gearbox,engine,body,desc,available,model,reg); 
my @result = (1,2,3,4,5,6,7,8,9,10,11,12,13,14);
for my $i (1..13) {
$result[$i] = param($resultnames[$i]);
}


also do i need to do
my @array = (blah,blah,blah);
even when i am going to change it in the loop or could i just use
my @array = '';


FishMonger
Veteran / Moderator

Oct 17, 2012, 3:43 PM

Post #13 of 18 (2331 views)
Re: [gerble1000] problem using array inside for loop inside if statement [In reply to] Can't Post


Quote
does this code look like the best way to do it.

No it isn't.

Don't use an array.

The cleanest approach would be to load all of your params into a hash, which BTW you're already doing on line 50.

Code
my %param = $cgi->Vars;



If you don't want to use that hash, I'd choose from one of these to approaches.


Code
my $car   = param('car'); 
my $price = param('price');
my $year = param('year');
# etc

or

Code
my %result = ( 
car => param('car'),
price => param('price'),
year => param('year'),
# etc
);



gerble1000
User

Oct 17, 2012, 4:07 PM

Post #14 of 18 (2328 views)
Re: [FishMonger] problem using array inside for loop inside if statement [In reply to] Can't Post

ok
i am not familier with what a "hash" is
and i didnt know what this does.
my %param = $cgi->Vars;
but i do have time to learn this.
why is an array a not so good way to do this. and what advantages does a hash have.
and i will google what a hash is :)


FishMonger
Veteran / Moderator

Oct 17, 2012, 7:44 PM

Post #15 of 18 (2324 views)
Re: [gerble1000] problem using array inside for loop inside if statement [In reply to] Can't Post

Hashes are unordered associative arrays that associate key/value pairs. They are one of the basic vars used in Perl scripts.

Based on your minimal level of Perl understanding, my best recommendation at this point would be for you to pick up a copy of "Learning Perl" and learn the basics.
http://shop.oreilly.com/product/9780596520113.do


gerble1000
User

Oct 18, 2012, 11:09 AM

Post #16 of 18 (2315 views)
Re: [FishMonger] problem using array inside for loop inside if statement [In reply to] Can't Post

ok i have done my best to clean this code up.
i have learned about sub routines and now have a better grasp of arrays.


Code
#!/strawberry/perl/bin/perl -w 


open(F, '<:utf8', "mydomainname.txt");
my $domainname = <F>;
close F;


use strict;
use warnings;
use CGI::Carp qw( fatalsToBrowser warningsToBrowser );
use File::Copy;
use File::Basename;
use Image::Resize;
use Math::Round;
use CGI qw/ :standard /;



$| = 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 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
$year += 1900;
$mon += 1;


my $updateddate = "$mday.$mon.$year";
my $sold = param('group2');
my $result1 = param('advert');
my $result14 = param('group1');
my $result15 = param('colortext');
my $safe_filename_characters = "a-zA-Z0-9_.-";
my $num1 = "1";
my $query = new CGI;
my $filename;
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>";

my @bulletins = ("blank","car","price","year","fuel","color","mileage","gearbox","engine","body","desc","available","model","plate");
my @resultname = ('blank','car','price','year','fuel','color','mileage','gearbox','engine','body','desc','available','model','reg');
my @skip = ();
my @result = ();
for my $i (1..8){
$skip[$i] = param("skip$i");
}


for my $i (1..13){
$result[$i] = param($resultname[$i]);
}
if ($result[11] eq ''){exit;}
$result[13] = uc($result[13]);

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] = "---- ---";}



sub bulletins
{
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;
}
}

sub photos
{
for my $i (1..8) {
$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");
}

unless (($filename eq "") || ($skip[$i] eq "skip")){
open ( UPLOADFILE, ">$result1/file.jpg" ) or die "failed to open '$result1/$num1.jpg' $!";
binmode UPLOADFILE;
while ( <$filename> ) {
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");
}

$num1 = join "", $num1, "1";
print"<img src='/segmant.png' height='10px' width='$length'>";
}
}

sub dateset
{
open(F, '>:utf8', "C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/lastupdated.dat");
print F "Last Updated $updateddate";
close F;
}


if ($result14 eq "Just" ){&photos;&dateset}
else{&bulletins;&photos;&dateset}







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>&nbsp;&nbsp;<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";
}


exit;


do you have any more pointers please :)


FishMonger
Veteran / Moderator

Oct 18, 2012, 1:15 PM

Post #17 of 18 (2307 views)
Re: [gerble1000] problem using array inside for loop inside if statement [In reply to] Can't Post

Remove the -w switch

Move lines 4-6 down after the use statements.

Remove lines 31-33 and use the strftime function from the POSIX module to assign $updateddate.

Remove lines 37-40 since they are already in the %param hash.

Remove line 43, since you already created the cgi object on line 23.

Remove lines 55-64 since that data is already in the %param hash.

Change lines 65-71 to use the data in the hash instead of the unnecessary array.

Change all other references to the @skip and @result arrays to use the data in the %hash.

After you make those changes, we'll look over the updated version for additional changes that should be made.


gerble1000
User

Oct 19, 2012, 6:41 AM

Post #18 of 18 (2290 views)
Re: [FishMonger] problem using array inside for loop inside if statement [In reply to] Can't Post

ok i got a little stuck with the hash variables but got there in the end :)
how does this look


Code
#!/strawberry/perl/bin/perl 

use strict;
use warnings;
use CGI::Carp qw( fatalsToBrowser warningsToBrowser );
use File::Copy;
use File::Basename;
use Image::Resize;
use Math::Round;
use CGI qw/ :standard /;
use POSIX qw(strftime);

open(F, '<:utf8', "mydomainname.txt");
my $domainname = <F>;
close F;

$| = 1;
$CGI::POST_MAX = 1024 * 50000;

my $cgi = CGI->new;
print $cgi->header, $cgi->start_html;
warningsToBrowser(1);


my %param = $cgi->Vars;



my $updateddate = strftime "%d %b %e %Y", gmtime;
my $safe_filename_characters = "a-zA-Z0-9_.-";
my $num1 = "1";
my $filename;
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>";

my @bulletins = ("blank","car","price","year","fuel","color","mileage","gearbox","engine","body","desc","available","model","plate");
my @resultname = ('blank','car','price','year','fuel','color','mileage','gearbox','engine','body','desc','available','model','reg');


if ($param{'available'} eq ''){exit;}
$param{'reg'} = uc($param{'reg'});

if ($param{'color'} eq "Other" ){$param{'color'} = $param{'colortext'};}
if ($param{'group2'} eq "blank" ){$param{'group2'} = "";}
if ($param{'model'} eq "blank" ){$param{'model'} = "";}
if ($param{'reg'} eq "" ){$param{'reg'} = "Advert $param{advert}";}



sub bulletins
{
for my $i (1..13) {
open(F, '>:utf8', "C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/$param{advert}/$bulletins[$i].txt");
print F "$param{$resultname[$i]}";
close F;
}
}

sub photos
{
for my $i (1..8) {
$filename = param("uploadfile$i");

if (($filename eq "") && ($param{"skip$i"} eq "")){
copy("noimage.png","C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/$param{advert}/$num1.png");
copy("noimagethumb1.png","C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/$param{advert}/thumb$num1.png");
}

unless (($filename eq "") || ($param{"skip$i"} eq "skip")){
open ( UPLOADFILE, ">$param{advert}/file.jpg" ) or die "failed to open '$param{advert}/$num1.jpg' $!";
binmode UPLOADFILE;
while ( <$filename> ) {
print UPLOADFILE;
}
close UPLOADFILE;
copy("$param{advert}/file.jpg","$param{advert}/thumb1.jpg");
system("PhotoResize700x500ICO.exe $param{advert}/file.jpg");
system("PhotoResize140x100ICO.exe $param{advert}/thumb1.jpg");
move("$param{advert}/file.jpg","file.jpg");
system('php roundimage.php');
move("file.png","C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/$param{advert}/$num1.png");
move("$param{advert}/thumb1.jpg","file.jpg");
system('php roundimage.php');
move("file.png","C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/$param{advert}/thumb$num1.png");
}

$num1 = join "", $num1, "1";
print"<img src='/segmant.png' height='10px' width='$length'>";
}
}

sub dateset
{
open(F, '>:utf8', "C:/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/customers/$domainname/lastupdated.dat");
print F "Last Updated $updateddate";
close F;
}


if ($param{group1} eq "Just" ){&photos;&dateset}
else{&bulletins;&photos;&dateset}


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>&nbsp;&nbsp;<a href=\"http://www.$domainname.co.uk/admin337648769.html\"><img border='none' src='/adminbutton.png' width='150px' /></a>";
if ($param{'available'} eq "Available"){
print "<h2><center>Upload Advert To Facebook Groups</h2>\n\n";
print "<h1><center><a href=\'facebookgraph.pl?model=$param{'model'};advert=$param{'advert'};car=$param{'car'};price=$param{'price'};year=$param{'year'};fuel=$param{'fuel'};color=$param{'color'};mileage=$param{'mileage'};gearbox=$param{'gearbox'};engine=$param{'engine'};body=$param{'body'};desc=$param{'desc'};'><img border='none' src='/facebook-button.gif' width='100px' /></a></h1>\n";
}


exit;


 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives