#!/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;
}
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"};
print "Other Cars
";
$config = XMLin( $xml, SuppressEmpty => "" );
$exportid = "$config->{Header}->{ExportID}";
$numveh = "$config->{Summary}->{NumberOfVehicles}";
$memid = "$config->{Header}->{MemberID}";
$lineno = 10;
$vehicleno = 1;
foreach $vehicle ( @{ $config->{'Vehicle'} } ) {
$auctionid = "$vehicle->{AuctionID}";
$make = "$vehicle->{Manufacturer}";
$model = "$vehicle->{Model}";
$reg = "$vehicle->{RegNo}";
$year = "$vehicle->{RegYear}";
$colour = "$vehicle->{Colour}";
$fueltype = "$vehicle->{Fuel}";
$damage = "$vehicle->{Damage}";
$doors = "$vehicle->{Doors}";
$cc = "$vehicle->{CC}";
$mileage = "$vehicle->{Speedo}";
$transpeed = "$vehicle->{TransSpeed}";
$trantype = "$vehicle->{TransType}";
$trim = "$vehicle->{TrimLevel}";
$abicat = "$vehicle->{Cat}";
$reserve = "$vehicle->{Reserveprice}";
$vat = "$vehicle->{HasVAT}";
if ($vat eq 1){$hasvat = "Yes"} else {$hasvat = "No"};
$xmlstarts = "$vehicle->{Starts}";
if ($xmlstarts eq 1){$starts = "Starts"} else {$starts = ""};
$xmldrives = "$vehicle->{Drives}";
if ($xmldrives eq 1){$drives = "Drives"} else {$drives = ""};
$xmlkeys = "$vehicle->{Keys}";
if ($xmlkeys eq 1){$keyssupplied = "yes"} else {$keyssupplied = "No"};
$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}";
###########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");
print FILENAME "Ref No,Make,Model,Trim,Vehicle Sub Class,Colour,Engine Size,Fuel Type,Transmission,Year,Mileage,Registration No,Keys Supplied,Damage Report,VAT Applicable,Condition,FSH,ABI Category,Reserve,Chassis No,Vehicle Source,Agent,Region,Vehicle Location,Source Name,Date Approved\n";
print FILENAME "$add5,$make,$model,$trim,$doors,$colour,$cc,$fueltype,$transpeed $trantype,$year,$mileage,$reg,$keyssupplied,$damage,$hasvat,$starts $drives,No,$abicat,$reserve,na,$memid,$memid,$memid,$memid,$auctionid,na,\n";
close FILENAME ;
print "
$vehicleno. "; print "$filename Created | "; #############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 "Image 1 Renamed | |
  | Image 2 Renamed | |
  | Image 3 Renamed | |
  | Image 4 Renamed | |
  | Image 5 Renamed | |
  | Image 6 Renamed | |
  | Image 7 Renamed | |
  | Image 8 Renamed | |
  | Image 9 Renamed | |
  | Image 10 Renamed | |
  | Image 11 Renamed | |
  | Image 12 Renamed |