Package: faqomatic
Version: 2.721-2
Severity: normal
Tags: patch
If the value of the HOST variable in /var/lib/fom/meta/maintenance_job_conf
contains a dot, /usr/share/perl5/FAQ/OMatic/Debian.pm fails:
===
Date: Wed, 19 Jan 2005 23:28:05 +0100 (CET)
From: [EMAIL PROTECTED] (Cron Daemon)
To: [EMAIL PROTECTED]
Subject: Cron <[EMAIL PROTECTED]> test -f
/var/lib/fom/meta/maintenance_job_conf && test -f
/usr/share/perl5/FAQ/OMatic/Debian.pm && perl -wMFAQ::OMatic::Debian -e
'maintenance_job'
Use of uninitialized value in pattern match (m//) at
/usr/share/perl5/FAQ/OMatic/Debian.pm line 26, <F> line 6.
Use of uninitialized value in concatenation (.) or string at
/usr/share/perl5/FAQ/OMatic/maintenance.pm line 464, <F> line 6.
Use of uninitialized value in concatenation (.) or string at
/usr/share/perl5/FAQ/OMatic/maintenance.pm line 468, <F> line 6.
maintenance::invoke can't create socket: :80
===
Patch is attached.
norbi
-- System Information:
Debian Release: 3.1
APT prefers testing
APT policy: (500, 'testing')
Architecture: i386 (i586)
Kernel: Linux 2.4.26
Locale: LANG=C, LC_CTYPE=hu_HU (charmap=ISO-8859-2)
Versions of packages faqomatic depends on:
ii cron 3.0pl1-86 management of regular background p
ii debconf 1.4.30.11 Debian configuration management sy
ii libgd-gd2-noxpm-perl 1:2.19-1 Perl module wrapper for libgd - gd
ii libjcode-pm-perl 0.83-1 Perl extension interface to conver
ii libmime-perl 5.415-1 Perl5 modules for MIME-compliant m
ii libnkf-perl 2.04-1 Network Kanji code conversion Filt
ii libtext-chasen-perl 1.04-3 Japanese Morphological Analysis Sy
ii liburi-perl 1.30-1 Manipulates and accesses URI strin
ii libwww-perl 5.803-3 WWW client/server library for Perl
ii perl [libdigest-md5-perl] 5.8.4-5 Larry Wall's Practical Extraction
ii rcs 5.7-13.3 The GNU Revision Control System
-- no debconf information
--- /usr/share/perl5/FAQ/OMatic/Debian.pm 2005-01-09 14:20:50.000000000
+0100
+++ Debian.pm 2005-01-19 23:49:08.000000000 +0100
@@ -19,7 +19,7 @@
open(F, "<$maint_conf_file") || die "cannot open $maint_conf_file: $!\n";
while (<F>) {
- $vars{$1} = $2 if (m!^\s*([a-zA-Z]+)\s*=\s*([-a-zA-Z0-9/\?&=]+)\s*$!);
+ $vars{$1} = $2 if (m!^\s*([a-zA-Z]+)\s*=\s*([-a-zA-Z0-9/\?&=.]+)\s*$!);
}
# Check the parameters we read from our config file.
