[pkg-bioc] svn commit r364 r364 - /trunk/tools-ng/r_pkg_ordering.pl

[smoe-guest at users.alioth.debian.org]

Author: smoe-guest
Date: Tue Nov 27 21:09:11 2007
New Revision: 364

URL: http://svn.debian.org/wsvn/pkg-bioc/?sc=1&rev=364
Log:
Nicified output of HTML a bit. Untested.

Modified:
    trunk/tools-ng/r_pkg_ordering.pl

Modified: trunk/tools-ng/r_pkg_ordering.pl
URL: http://svn.debian.org/wsvn/pkg-bioc/trunk/tools-ng/r_pkg_ordering.pl?rev=364&op=diff
==============================================================================
--- trunk/tools-ng/r_pkg_ordering.pl (original)
+++ trunk/tools-ng/r_pkg_ordering.pl Tue Nov 27 21:09:11 2007
@@ -488,6 +488,16 @@ my @packagenames = keys %globalpackage;
 # The graph's edges (x,Y) determine a dependency of a package
 # X to a package Y.
 my $g = Graph::Directed->new;
+my %alreadyInGraph;
+sub addToGraph($$){
+	my ($from,$to)=@_;
+	unless(exists($alreadyInGraph{"$from:$to"})) {
+		print DOT "\"" 
+		      . $from . "\" -> \"" .$to. "\"\n";
+		$alreadyInGraph{"$from:$to"}=1;
+	}
+}
+
 foreach my $package (@packagenames) {
     my @dbds;
     
@@ -516,10 +526,7 @@ foreach my $package (@packagenames) {
     foreach my $dbd (@dbds) {
         if ( exists( $globalstuff{debian2regular}{$dbd} ) ) {
             $g->add_edge( $package, $globalstuff{debian2regular}{$dbd} );
-            print DOT "\"" 
-              . $package
-              . "\" -> \""
-              . $globalstuff{debian2regular}{$dbd} . "\"\n";
+            addToGraph( $package, $globalstuff{debian2regular}{$dbd} );
         }
         elsif ( ( $dbd =~ /-dev$/ ) or ( $dbd =~ /^lib/ ) ) {
             print "Ignoring libraries $dbd for $package.\n" if $debug;
@@ -667,7 +674,7 @@ foreach my $package (@nodes) {
             }
             else {
                 print
-                  "\tPackage '$package' ($debname): last version is already "
+                  "\tPackage '$package' ($debname): latest version is already "
                   . "in Debian, skipping\n";
             }
             next;
@@ -893,18 +900,20 @@ HTML->close;
 open( HTML, ">$webdir/cannotbuild.html" )
   || die "Cannot open for writting $webdir/cannotbuild.html !\n";
 
-print HTML "\n----------------------------------\n";
-print HTML "Success: $success\n";
-print HTML "Error: $errors\n";
-print HTML "\n----------------------------------\n";
+print HTML "<hr />\n";
+print HTML "Success: $success<br />\n";
+print HTML "Error: $errors<br />\n";
+print HTML "<hr />\n";
 print HTML "The list of unbuildable package are:\n";
 foreach my $k ( sort { lc($a) cmp lc($b) } keys %{ $globalstuff{cannotbuild} } )
 {
+    print "<pre>";
     print HTML "$k: \n";
     foreach my $a ( @{ $globalstuff{cannotbuild}{$k} } ) {
         print HTML "\t:$a\n";
     }
-    print HTML "##################\n";
+    print "</pre>\n";
+    print HTML "<hr />\n";
 }
 HTML->close;