equal
deleted
inserted
replaced
151 |
151 |
152 if ($roadmap =~ m /table\>(.*?)\<\/table/sg) { $relroad =$1;} |
152 if ($roadmap =~ m /table\>(.*?)\<\/table/sg) { $relroad =$1;} |
153 $relroad =~ s/\n//sg; |
153 $relroad =~ s/\n//sg; |
154 |
154 |
155 $skipfirst =1; #skipping the header of the table |
155 $skipfirst =1; #skipping the header of the table |
156 # while ($relroad =~ m/title\=\"(.*?)\"\>(.*)/g) { |
|
157 while ($relroad =~ m/\<tr\>(.*?)\<\/tr(.*)/sg){ |
156 while ($relroad =~ m/\<tr\>(.*?)\<\/tr(.*)/sg){ |
158 $myfeat=$1; |
157 $myfeat=$1; |
159 $relroad =$2; |
158 $relroad =$2; |
160 if ($skipfirst) {$skipfirst=0;next;} |
159 if ($skipfirst) {$skipfirst=0;next;} |
161 $package=""; |
160 $package=""; |
162 if ($myfeat =~ m/title\=\"(.*?)\"\>/sg) { $package=$1; } |
161 if ($myfeat =~ m/title\=\"(.*?)\"/sg) { $package=$1; } #looking for package name |
163 |
162 |
164 $myfeat=~ s/\<\/td\>\<td\>/-/sg; #TODO change - to , when the old format is dead |
163 $myfeat=~ s/\<\/td\>\<td\>/-/sg; #TODO change - to , when the old format is dead |
165 $myfeat=~ s/\<.*?\>//sg; |
164 $myfeat=~ s/\<.*?\>//sg; |
166 |
165 |
167 if ($myfeat =~m/[A-z]/sg ){prntfeatures($_,$package,$myfeat,outputfile,$domain);} |
166 if ($myfeat =~m/[A-z]/sg ){prntfeatures($_,$package,$myfeat,outputfile,$domain);} |