Package: amanda-server
Version: 1:2.5.1p1-2.1
Severity: normal
File: /usr/sbin/amoverview
Tags: patch


Hello!  I have a one-liner fix for amanda-server's amoverview script.

Symptom:
  amoverview reports an error (E) for every dump on every day.

Analysis:
  The amoverview perl script incorrectly parses the output of "amadmin
  find".  amoverview uses a single space character as a string
  separator, but "amadmin find" places an arbitrary amount of
  whitespace between fields.  So the first few arguments separated
  by single spaces are correct (date, host, disk), but the remaining
  are ignored (level, tape, file, part, status).

Correction:
  One line in perl script (attached patch) will use contiguous
  whitespace as separator.

Best regards,

Stephen Benoit

-- System Information:
Debian Release: 4.0
  APT prefers stable
  APT policy: (500, 'stable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.20
Locale: LANG=en_US, LC_CTYPE=en_US (charmap=ISO-8859-1)

Versions of packages amanda-server depends on:
ii  amanda-common    1:2.5.1p1-2.1           Advanced Maryland Automatic Networ
ii  libc6            2.3.6.ds1-13etch2       GNU C Library: Shared libraries
ii  libncurses5      5.5-5                   Shared libraries for terminal hand
ii  libreadline5     5.2-2                   GNU readline and history libraries
ii  mailx            1:8.1.2-0.20050715cvs-1 A simple mail user agent

amanda-server recommends no packages.

-- no debconf information
--- amanda-2.5.1p1.orig/server-src/amoverview.pl.in     2007-10-25 
01:13:29.469035946 -0400
+++ amanda-2.5.1p1/server-src/amoverview.pl.in  2006-05-25 06:44:37.000000000 
-0400
@@ -126,7 +126,7 @@
     next if /found Amanda directory/;
     next if /skipping cruft directory/;
     next if /skip-incr/;
-    ($date, $host, $disk, $level, $tape, $file, $part, $status) = quotewords(" 
", 0, $_);
+    ($date, $host, $disk, $level, $tape, $file, $part, $status) = 
quotewords('\s+', 0, $_);
     next if $date eq 'date';
     next if $date eq 'Warning:';
     next if $date eq 'Scanning';

Reply via email to