88 qq{^File "([^"]+)" is already registered with different checksums!} => \&m_mismatch, |
88 qq{^File "([^"]+)" is already registered with different checksums!} => \&m_mismatch, |
89 "^file '([^']+)' is needed for '([^']+)', not yet registered in the pool and not found in '([^']+)'\$" => \&m_missingfile, |
89 "^file '([^']+)' is needed for '([^']+)', not yet registered in the pool and not found in '([^']+)'\$" => \&m_missingfile, |
90 "^Warning: trying to put version '([^']+)' of '([^']+)' in '([^']+)',\$" => \&m_mayexist, |
90 "^Warning: trying to put version '([^']+)' of '([^']+)' in '([^']+)',\$" => \&m_mayexist, |
91 "^Skipping ([^ ]+) because all packages are skipped!\$" => \&m_allskipped, |
91 "^Skipping ([^ ]+) because all packages are skipped!\$" => \&m_allskipped, |
92 "^Data seems not to be signed trying to use directly...\$" => \&m_unsigned, |
92 "^Data seems not to be signed trying to use directly...\$" => \&m_unsigned, |
93 "^ERROR: File '([^']+)' does not match expextations:\$" => \&m_asis, |
93 "^Not putting '([^']+)' in '([^']+)' as already in there with equal or newer version.\$" => \&m_equal_or_newer, |
94 "^Not putting '([^']+)' in '([^']+)' as already in there with equal or newer version.\$" => \&m_equal_or_newer |
94 # "^ERROR: File '([^']+)' does not match expextations:\$" => \&m_asis, |
|
95 # "^In 'littlebird_2011072500-2_amd64.changes': file 'littlebird_2011072500.orig.tar.gz' not found in the incoming dir!" => \&m_asis, |
|
96 # send *everything* for now |
|
97 "." => \&m_asis |
95 }; |
98 }; |
96 |
99 |
97 # anything matching these will not be sent to anyone |
100 # anything matching these will not be sent to anyone |
98 my $unimportant = '^' |
101 my $unimportant = '^' |
99 . ( join '|', |
102 . ( join '|', |