- if ( !$debver ) { # first line
- $debver = 1;
- $p =~ s/(5[0-9.]+)/$1 LENNY !!!/;
- $p =~ s/(6[0-9.]+)/$1 squeeze/;
- $p =~ s/(7[0-9.]+)/$1 wheezy/;
- $p = " Debian $p";
- $debversions{$H} = $p;
- print "Deb version for $H is $p\n" if ($debug>1);
- next;
+ if ( !$versionseen ) { # first line
+ $versionseen = 1;
+ if ( $p =~ /Centos/i ) {
+ print "CentOs version for $H is $p\n" if ($debug>1);
+ $debversions{$H} = $p;
+ } else { # must be Debian
+ $p =~ s/(5[0-9.]+)/$1 LENNY !!!/;
+ $p =~ s/(6[0-9.]+)/$1 squeeze/;
+ $p =~ s/(7[0-9.]+)/$1 wheezy/;
+ $p = " Debian $p";
+ $debversions{$H} = $p;
+ $is_debian = 1;
+ print "Deb version for $H is $p\n" if ($debug>1);
+ }
+ next;
+ }
+ if ( ! $is_debian ) {
+ $table .= "<tr><td colspan='3'> </td></tr>\n";
+ $table .= "<tr><td colspan='3'><b><u>$H</u></b> (skipped)</td></tr>\n";
+ $table .= "<tr><td colspan='3'>Looks like Centos, " .
+ "not yet implemented </td></tr>\n";
+ $skiphosts{$H}=1;
+ next HOSTLOOP;