amanda-amtoc.patch

   1 --- amanda-2.6.0/server-src/amtoc.pl.orig       2008-10-26 15:21:44.691836813 +0100
   2 +++ amanda-2.6.0/server-src/amtoc.pl    2008-10-26 15:32:17.076007801 +0100
   3 @@ -191,10 +191,14 @@
   4        &pr("#","Server","/partition","date", "level","size[Kb]","part");
   5        &pr("$filenumber","$chunk","","$disk","-","-","-");
   6        last switch; };
   7 -    /^(?:SUCCESS|CHUNK) taper/ && do {
   8 -      if(/SUCCESS/){
   9 -       $level = $chunk;
  10 -       $chunk = "-";
  11 +    /^(?:PART) taper/ && do {
  12 +      if(/PART/){
  13 +       /^([A-Z]+) taper (\S+) (\S+) (\S+) (\S+) (\S+) (\S+) (\S+)/;
  14 +       $host = $4;
  15 +       $disk = $5;
  16 +       $date = $6;
  17 +       $chunk = $7;
  18 +       $level = $8;
  19        }
  20        $mysize = 0;
  21        if(/ kb (\d+) /){
  22 @@ -206,11 +210,11 @@
  23         if (defined($flash_mode)) {
  24            &pr("$filenumber","${host}","${disk}","${date}","${level}","$mysize","${chunk}");
  25         } else {
  26 -         if (defined($osize{$host}{$disk}) && !/^CHUNK/) {
  27 +         if (defined($osize{$host}{$disk}) && !/^PART/) {
  28              &pr("$filenumber","${host}","${disk}","${date}","${level}","$osize{$host}{$disk}","${chunk}");
  29           } else {
  30             $note = "";
  31 -           if(!/^CHUNK/){
  32 +           if(!/^PART/){
  33                 # this case should never happend:
  34             $strange=1;
  35               $note = "*";