10 while( @ARGV && $ARGV[0] =~ /^-/ ) {
12 if (/^-d/ || /^--dist/) {
13 if (/^-d(.)/ || /^--dist=(.)/) {
17 die "$_ option missing argument\n";
26 elsif (/^-p$/ || /^--previously-built$/) {
27 $previously_built = 1;
30 die "Unknown option: $_\n";
34 my $date=`date -u "+%m/%d/%Y %T"`;
38 . /org/wanna-build/triggers/common
40 for arch in $ARCHS_unstable; do
42 my($lastmsg, %n_state, $total, %n_builder, $pu_total);
44 $n_state{"Installed"} = 0;
45 open( my $pipe, '-|', "wanna-build --database=$arch/build-db --dist=$dist --list=all" )
46 or die "Cannot spawn wanna-build: $!\n";
48 if (/^Database for $dist doesn't exist$/) {
51 elsif (/^Total (\d+) package\(s\) in state (\S+)\.$/) {
53 $pu_total += $1 if ( $2 eq "Installed" );
55 elsif (/^Total (\d+) package\(s\)$/) {
58 elsif (/: Installed (?:by [\w-]+ )?\[[\w-]*:/) {
61 elsif (/: [\w-]+ (?:by [\w-]+ )?\[\w+:(out-of-date|partial)/) {
70 # $total -= $n_state{"Not-For-Us"};
71 if ( $previously_built ) {
72 print ", ".$n_state{"Installed"}.", ".$pu_total;
74 print ", ".$n_state{"Installed"}.", ".$total;
84 return grep( $_ eq $val, @_ );