scripts/gettd.pl
changeset 7 896da38e2b20
parent 6 2ac7d35ac201
child 8 86e7e89c8543
equal deleted inserted replaced
6:2ac7d35ac201 7:896da38e2b20
   284 		if ($mypkg =~m/class\=\"bugzilla sortable\"/sg ) { $headerformat="autobug_format"; }
   284 		if ($mypkg =~m/class\=\"bugzilla sortable\"/sg ) { $headerformat="autobug_format"; }
   285 		
   285 		
   286 		while ($mypkg =~ m/\<tr.*?\>(.*?)\<\/tr/sg) { 
   286 		while ($mypkg =~ m/\<tr.*?\>(.*?)\<\/tr/sg) { 
   287 			$myheader= $&;
   287 			$myheader= $&;
   288       if ($myheader =~ m/style=\"background-color\:/sg) {
   288       if ($myheader =~ m/style=\"background-color\:/sg) {
   289         if ($myheader =~ m/Bug ID/sg) { $headerformat="bugzilla_format";}
       
   290         next;
   289         next;
   291       }
   290       }
   292 			$myfeat= $1;
   291 			$myfeat= $1;
   293 			$myfeat =~ s/\<\/td\>/\t/sg;
   292 			$myfeat =~ s/\<\/td\>/\t/sg;
   294 			$myfeat =~ s/\<.*?\>//sg;
   293 			$myfeat =~ s/\<.*?\>//sg;
   295 			$myfeat =~ s/\n//sg;
   294 			$myfeat =~ s/\n//sg;
   296 			
   295 			
       
   296 			if ($myfeat =~ m/IDPStatus/sg) { #header for bugzilla mediawiki plugin
       
   297         next;
       
   298       }
   297 			
   299 			
   298 			if ($myfeat =~ m/[A-z]/sg and not $myfeat =~ m/\&lt\;etc/sg and 
   300 			if ($myfeat =~ m/[A-z]/sg and not $myfeat =~ m/\&lt\;etc/sg and 
   299 			not $myfeat =~ m/\&lt\;Feature/sg and not $myfeat =~ m/Item not available/sg) {
   301 			not $myfeat =~ m/\&lt\;Feature/sg and not $myfeat =~ m/Item not available/sg) {
   300 				print outputfile "$pagename\t$myfeat\n";
   302 				print outputfile "$pagename\t$myfeat\n";
   301 				if ($splitbklogs) { print tdoutputfile "$pagename\t$myfeat\n";}
   303 				if ($splitbklogs) { print tdoutputfile "$pagename\t$myfeat\n";}