#################################################################################################### # # # (C) All rights reserved by ROBERT BOSCH GMBH, STUTTGART # # # #################################################################################################### # # # __ __ ___ __ # # /_ / / / /__ / /__/ # # /__/ /__/ __ / /__ / / # # # # # #################################################################################################### # author: Martin Kandler # version: 1.1 # ********** global variables ********************************************************************** $versionFile = "version.xml"; $outputFile = "version_customer.html"; %data = undef; # ********** MAIN PROGRAM ************************************************************************** if(@ARGV == 2) { $versionFile = $ARGV[0]; $outputFile = $ARGV[1]; } elsif(@ARGV != 0) { die "\nversion documentation script\n\nuse: .>perl version_customer.pl [] []\n"; } if(!(-f $versionFile)) { die "\nERROR version.xml file not found: '$versionFile'\n"; } if(-f $outputFile) { die "\nERROR output.html file allready exists: '$outputFile'\n"; } $fileContent = readFileIntoString($versionFile); print "input file read\n"; # remove comments $fileContent =~ s/\<\!\-\-.*?\-\-\>//g; @versions = $fileContent =~ /.+?<\/TOOL-VERSION>/g; foreach $version (@versions) { @allchanges = undef; my @v; @v = $version =~ /(.+?)<\/VERSION>/g; $versionNumber = @v[0]; @customerDoc = $version =~ /.+?<\/CUSTOMER>/g; foreach $entry (@customerDoc) { (@changes) = $entry =~ /(.+?)<\/CHANGE>/g; push(@allchanges, @changes); push(@allchanges, ""); } pop(@allchanges); $data{$versionNumber}{version} = $versionNumber; my $i = 0; foreach $change (@allchanges) { $line = sprintf("%04d", $i); $data{$versionNumber}{changes}{$line} = $change; $i ++; } } print "input file parsed\n"; writeCustomerDoc($outputFile, \%data); print "output file written\n"; # ********** END main program ********************************************************************** # ********** SUB PROCESSES ************************************************************************* sub readFileIntoString { my $f = $_[0]; my $fileContent = ""; open(readFile, $f) or die "\nERROR cannot open file: '$f'\n"; while() { chomp($_); $fileContent .= $_; } close readFile; return $fileContent; } sub writeCustomerDoc { my $f = $_[0]; my %h = %{$_[1]}; open(writeFile, ">$f") or die "\nERROR cannot write file: '$f'\n"; print writeFile "\n\nVWAudi Use Case Versionhistory\n\n\n\n\n"; foreach $version (sort {$b cmp $a} keys(%h)) { if($h{$version}{version} ne "") { $index = 1; print writeFile "

Version: $h{$version}{version}

\n\n\n \n \n \n \n \n \n \n \n
$index.\n"; my $a = $h{$version}{changes}; foreach $change (sort keys(%$a)) { if($h{$version}{changes}{$change} ne "") { if($h{$version}{changes}{$change} eq "") { $index ++; print writeFile "
$index.\n"; } else { print writeFile "$h{$version}{changes}{$change}
\n"; } } } print writeFile "
\n\n"; } } print writeFile "\n\n"; close writeFile; }