triggers: switch to a signal-based infrastructure

[wannabuild.git] / bin / wb-graph

diff --git a/bin/wb-graph b/bin/wb-graph
index 1a65dbc1bc4c8dfa5e1306fae2b25461ec4c08f0..2a952d004b2374ef05cbc525c459917cf5d8e1a9 100755 (executable)
--- a/bin/wb-graph
+++ b/bin/wb-graph
@@ -5,7 +5,7 @@ use strict;
 use vars qw($dist);
 my $previously_built;
 
-$dist = "unstable";
+$dist = "sid";
 
 while( @ARGV && $ARGV[0] =~ /^-/ ) {
        $_ = shift @ARGV;
@@ -19,10 +19,6 @@ while( @ARGV && $ARGV[0] =~ /^-/ ) {
                else {
                        $dist = shift @ARGV;
                }
-               $dist = "stable"   if $dist eq "s";
-               $dist = "frozen"   if $dist eq "f";
-               $dist = "unstable" if $dist eq "u";
-               die "Bad distribution\n" if !isin($dist, qw(stable testing unstable));
        }
        elsif (/^--$/) {
                last;
@@ -35,11 +31,11 @@ while( @ARGV && $ARGV[0] =~ /^-/ ) {
        }
 }
 
-my $date=`date +%m/%d/%Y`;
+my $date=`date -u "+%m/%d/%Y %T"`;
 chop($date);
 print "$date";
 
-my @archs = qw(alpha arm hppa hurd-i386 i386 ia64 m68k mips mipsel powerpc s390 amd64 sparc armel);
+my @archs = qw(alpha arm hppa hurd-i386 i386 ia64 m68k mips mipsel powerpc s390 amd64 sparc armel kfreebsd-amd64 kfreebsd-i386);
 my $arch;
 
 foreach $arch (@archs) {
@@ -47,7 +43,7 @@ foreach $arch (@archs) {
 my($lastmsg, %n_state, $total, %n_builder, $pu_total);
 $pu_total = 0;
 $n_state{"Installed"} = 0;
-open( PIPE, "wanna-build --database=$arch/build-db --dist=$dist --list=all 2>&1 |" )
+open( PIPE, "wanna-build --database=$arch/build-db --dist=$dist --list=all |" )
        or die "Cannot spawn wanna-build: $!\n";
 while( <PIPE> ) {
        if (/^Database for $dist doesn't exist$/) {