--- a/scripts/gettd.pl Mon Dec 07 17:07:46 2009 +0000
+++ b/scripts/gettd.pl Thu Dec 10 17:04:09 2009 +0000
@@ -76,10 +76,11 @@
($release,$package,$features,$myfile,$domain)=@_;
$release =~ s/\\//sg;
-
+ $csvdel ="\",\"";
+ $invcoma ="\"";
if ($newtdformat) {
$package =~ s/backlog//sgi;
- print $myfile " $release, $domain, $package, $myfeat\n";
+ print $myfile "$invcoma $release $csvdel $domain $csvdel $package $csvdel $myfeat $invcoma\n";
} else {
@@ -106,7 +107,7 @@
$mysubfeat =~ s/\<.*?\>//sg;
- print $myfile " $release, $domain, $package, $myfeat, $mysubfeat\n";
+ print $myfile "$invcoma $release $csvdel $domain $csvdel $package $csvdel $myfeat $csvdel $csvdel $csvdel $mysubfeat $invcoma\n";
$mysubfeat = "";
}
@@ -160,7 +161,7 @@
$package="";
if ($myfeat =~ m/title\=\"(.*?)\"/sg) { $package=$1; } #looking for package name
- $myfeat=~ s/\<\/td\>\<td\>/-/sg; #TODO change - to , when the old format is dead
+ $myfeat=~ s/\<\/td\>\<td\>/\",\"/sg;
$myfeat=~ s/\<.*?\>//sg;
if ($myfeat =~m/[A-z]/sg ){prntfeatures($_,$package,$myfeat,outputfile,$domain);}