#!/usr/bin/perl
use XML::Simple;

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

######XML PARSE##########

$ipath = "e:/cars/";

$str = ".xml";

opendir THEDIR, "$ipath";
@xmlfile = grep (/$str/, readdir THEDIR);
closedir THEDIR;

foreach $file (@xmlfile){
$xml = $ipath.$file;
}

##</code><code>##

if (lc($xml) =~ "don"){&doncaster} else {
if (lc($xml) =~ "ayl"){$holding = "asmholding"};
if (lc($xml) =~ "cartrans"){$holding = "ctpholding"};
if (lc($xml) =~ "hills"){$holding = "hilholding"};
if (lc($xml) =~ "windley"){$holding = "wlsholding"};
if (lc($xml) =~ "ppm"){$holding = "ppmholding"};

##</code><code>##

print "Other Cars<br>";

$config = XMLin( $xml, SuppressEmpty => "" );

$exportid = "$config->{Header}->{ExportID}";
$numveh = "$config->{Summary}->{NumberOfVehicles}";
$memid = "$config->{Header}->{MemberID}"; 

##</code><code>##

$lineno = 10;
$vehicleno = 1;
foreach $vehicle ( @{ $config->{'Vehicle'} } ) {
$auctionid = "$vehicle->{AuctionID}";
$make = "$vehicle->{Manufacturer}";
$model = "$vehicle->{Model}";
[...]

##</code><code>##

$image1 = "$vehicle->{Images}->{Image_1}";
$image2 = "$vehicle->{Images}->{Image_2}";
$image3 = "$vehicle->{Images}->{Image_3}";
$image4 = "$vehicle->{Images}->{Image_4}";
$image5 = "$vehicle->{Images}->{Image_5}";
$image6 = "$vehicle->{Images}->{Image_6}";
$image7 = "$vehicle->{Images}->{Image_7}";
$image8 = "$vehicle->{Images}->{Image_8}";
$image9 = "$vehicle->{Images}->{Image_9}";
$image10 = "$vehicle->{Images}->{Image_10}";
$image11 = "$vehicle->{Images}->{Image_11}";
$image12 = "$vehicle->{Images}->{Image_12}";

##</code><code>##

 for my $ImgNo (1..12) {
  # Storing them into an array is easy:
  $image[$_] = $vehicle->{Images}->{'Image_'.$ImgNo};
  # or you could also skip empty values:
  push @image,$vehicle->{Images}->{'Image_'.$ImgNo} if $vehicle->{Images}->{'Image_'.$ImgNo} ne '';
  # or you may want to keep the variable names:
  eval('$image'.$ImgNo.'=$vehicle->{Images}->{"Image_".$ImgNo};');
 }

##</code><code>##

###########Write CSV############

$opath = "e:/out/" ;
$add='0';
$add2='xx.csv';
$add5 = $exportid.$lineno ;
$add3 = $opath.$exportid.$lineno.$add2 ;
$add6 = "xx";
$filename = $exportid.$lineno.$add2;

$mileage =~ tr/,//d ;
$damage =~ tr/,//d ;
$trim =~ tr/,//d ;

open (FILENAME,">$add3");

##</code><code>##

print FILENAME "Ref No,Make,Model,Trim,Vehicle Sub Class,Colour,Engine
+ Size,Fuel Type,Transmission,Year,Mileage,Registration No,Keys Suppli
+ed,Damage Report,VAT Applicable,Condition,FSH,ABI Category,Reserve,Ch
+assis No,Vehicle Source,Agent,Region,Vehicle Location,Source Name,Dat
+e Approved\n";    

print FILENAME "$add5,$make,$model,$trim,$doors,$colour,$cc,$fueltype,
+$transpeed $trantype,$year,$mileage,$reg,$keyssupplied,$damage,$hasva
+t,$starts $drives,No,$abicat,$reserve,na,$memid,$memid,$memid,$memid,
+$auctionid,na,\n";

##</code><code>##

print FILENAME join(',',
	$exportid.$lineno, #$add5 is defined this way some lines before
	$vehicle->{Manufacturer},
	$vehicle->{Model},
	[...]
	@image,
	)."\n";

##</code><code>##

close FILENAME ;
print "<table width=400>";
print "<tr><td>$vehicleno. ";
print "$filename Created </td>";
#############Change IMG Name##############
$pga ="a.jpg";
$pgb ="b.jpg";
$pgc ="c.jpg";
$pgd ="d.jpg";
$pge ="e.jpg";
$pgf ="f.jpg";
$pgg ="g.jpg";
$pgh ="h.jpg";
$pgi ="i.jpg";
$pgj ="j.jpg";
$pgk ="k.jpg";
$pgl ="l.jpg";

if ($image1 ne ""){$jpg1 ="$add5$add6$pga";
rename ($ipath.$image1, $ipath.$jpg1);
print "<td colspan=2>Image 1 Renamed</td></tr>";
}

##</code><code>##

$Char = "a";
for (@images) {
 next if $_ eq ''; # if you didn't filter them above
 rename $ipath.$_,$ipath.$add5.$add6.($Char++).'.jpg';
}

##</code><code>##

opendir THEDIR, "$ipath";
for $file (grep (/$str/, readdir THEDIR)) {
 # Do the work
}
closedir THEDIR;