67 |
$media++; |
$media++; |
68 |
} elsif ($type !~ m/=+/) { |
} elsif ($type !~ m/=+/) { |
69 |
# don't report this on header! |
# don't report this on header! |
70 |
print STDERR "unknown type: $type"; |
print STDERR "unknown type: '$type'\n"; |
71 |
} |
} |
72 |
} |
} |
73 |
close(O); |
close(O); |
94 |
|
|
95 |
my $other; |
my $other; |
96 |
foreach (keys %backup) { |
foreach (keys %backup) { |
97 |
print STDERR "other backup: -->$_<--\n" if ($debug); |
print STDERR "unknown status backup: '$_'\n"; |
98 |
$other += $backup{$_}; |
$other += $backup{$_}; |
99 |
} |
} |
100 |
print $other || "0\n"; |
print $other || "0\n"; |
103 |
|
|
104 |
undef $other; |
undef $other; |
105 |
foreach (keys %restore) { |
foreach (keys %restore) { |
106 |
print STDERR "other restore -->$_<--\n" if ($debug); |
print STDERR "unkwown status restore: '$_'\n"; |
107 |
$other += $restore{$_}; |
$other += $restore{$_}; |
108 |
} |
} |
109 |
print $other || "0\n"; |
print $other || "0\n"; |