-sub readNMUstatus() {
- local ($bug); # Number of current bug
- local ($source); # Source upload which closes this bug.
- local ($version); # Version where this bug was closed.
- local ($flag); # Whether this paragraph has been processed.
- local ($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;
-# $comments{$bug} .= "[FIXED] Fixed package $source is in Incoming\n";
- $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;
-# $comments{$bug} .= "[FIXED] Fixed package $source in in Incoming\n";
- }
- close P;
-}
-
-