-sub readNMUstatus() {
- my $bug; # Number of current bug
- my $source; # Source upload which closes this bug.
- my $version; # Version where this bug was closed.
- my $flag; # Whether this paragraph has been processed.
- my ($field, $value);
-
- for (split /\n/, LWP::UserAgent->new->request(HTTP::Request->new(GET => shift))->content) {
- chomp;
- if (m/^$/) {
- $NMU{$bug} = 1;
- $NMU{$bug, "source"} = $source;
- $NMU{$bug, "version"} = $version;
- $flag = 0;
- } else {
- ($field, $value) = split(/: /, $_, 2);
- $bug = $value if($field =~ /bug/i);
- $source = $value if($field =~ /source/i);
- $version = $value if($field =~ /version/i);
- $flag = 1;
- }
- }
- if ($flag) {
- $NMU{$bug} = 1;
- $NMU{$bug, "source"} = $source;
- $NMU{$bug, "version"} = $version;
- }
- close P;
-}
-
-