Ensure there is no false array entry inside the backup listing.

diff --git a/html/cgi-bin/backup.cgi b/html/cgi-bin/backup.cgi
index e526fc30e9c06d00f15ffa11afe63a3abd177ffc..fdcac538fc38d52254f56f0ede778abdae485982 100644 (file)
--- a/html/cgi-bin/backup.cgi
+++ b/html/cgi-bin/backup.cgi
@@ -193,7 +193,8 @@ print <<END
 END
 ;
 foreach (@backups){
-       chomp($_);
+if ( $_ !~ /ipf$/){next;}
+chomp($_);
 my $Datei = "/var/ipfire/backup/".$_;
 my @Info = stat($Datei);
 my $Size = $Info[7] / 1024 / 1024;
@@ -202,6 +203,7 @@ print "<tr><td align='center'>$Lang::tr{'backup from'} $_ $Lang::tr{'size'} $Siz
 print "<td width='5'><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='delete' /><input type='hidden' name='FILE' value='$_' /><input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' /></form></td></tr>";
 }
 foreach (@backupisos){
+if ( $_ !~ /iso$/){next;}
 chomp($_);
 my $Datei = "/var/tmp/backupiso/".$_;
 my @Info = stat($Datei);
@@ -325,4 +327,4 @@ END
 ;
 &Header::closebox();
 &Header::closebigbox();
-&Header::closepage();
+&Header::closepage();
\ No newline at end of file