equal
deleted
inserted
replaced
74 { |
74 { |
75 |
75 |
76 ($release,$package,$features,$myfile,$domain)=@_; |
76 ($release,$package,$features,$myfile,$domain)=@_; |
77 |
77 |
78 $release =~ s/\\//sg; |
78 $release =~ s/\\//sg; |
79 |
79 $csvdel ="\",\""; |
|
80 $invcoma ="\""; |
80 if ($newtdformat) { |
81 if ($newtdformat) { |
81 $package =~ s/backlog//sgi; |
82 $package =~ s/backlog//sgi; |
82 print $myfile " $release, $domain, $package, $myfeat\n"; |
83 print $myfile "$invcoma $release $csvdel $domain $csvdel $package $csvdel $myfeat $invcoma\n"; |
83 |
84 |
84 } else { |
85 } else { |
85 |
86 |
86 $features = $features."<dt"; |
87 $features = $features."<dt"; |
87 |
88 |
104 $mysubfeat =~ s/,/ /sg; |
105 $mysubfeat =~ s/,/ /sg; |
105 $mysubfeat =~ s/\n//sg; |
106 $mysubfeat =~ s/\n//sg; |
106 $mysubfeat =~ s/\<.*?\>//sg; |
107 $mysubfeat =~ s/\<.*?\>//sg; |
107 |
108 |
108 |
109 |
109 print $myfile " $release, $domain, $package, $myfeat, $mysubfeat\n"; |
110 print $myfile "$invcoma $release $csvdel $domain $csvdel $package $csvdel $myfeat $csvdel $csvdel $csvdel $mysubfeat $invcoma\n"; |
110 |
111 |
111 $mysubfeat = ""; |
112 $mysubfeat = ""; |
112 } |
113 } |
113 |
114 |
114 } |
115 } |
158 $relroad =$2; |
159 $relroad =$2; |
159 if ($skipfirst) {$skipfirst=0;next;} |
160 if ($skipfirst) {$skipfirst=0;next;} |
160 $package=""; |
161 $package=""; |
161 if ($myfeat =~ m/title\=\"(.*?)\"/sg) { $package=$1; } #looking for package name |
162 if ($myfeat =~ m/title\=\"(.*?)\"/sg) { $package=$1; } #looking for package name |
162 |
163 |
163 $myfeat=~ s/\<\/td\>\<td\>/-/sg; #TODO change - to , when the old format is dead |
164 $myfeat=~ s/\<\/td\>\<td\>/\",\"/sg; |
164 $myfeat=~ s/\<.*?\>//sg; |
165 $myfeat=~ s/\<.*?\>//sg; |
165 |
166 |
166 if ($myfeat =~m/[A-z]/sg ){prntfeatures($_,$package,$myfeat,outputfile,$domain);} |
167 if ($myfeat =~m/[A-z]/sg ){prntfeatures($_,$package,$myfeat,outputfile,$domain);} |
167 |
168 |
168 } |
169 } |