56c56
< my @releases = ("stable", "testing","unstable");
---
> my @releases = ();
57a58,98
> sub determine_releases () {
> 	my $distro = '';
> 	my $codename = '';
> 
> 	# Default to Debian-specific behavior, in case lsb_release is
> 	# not installed or doesn't return the right text.
> 	eval {
> 		open(CMD, "lsb_release -a 2> /dev/null |") or die "Cannot run lsb_release: $!";
> 		while (my $line = <CMD>) {
> 			chomp($line);
> 			my ($key, $value) = split(/:\s+/, $line, 2);
> 		
> 			if ($key eq "Distributor ID") {
> 				$distro = $value;
> 				next;
> 			}
> 
> 			if ($key eq "Codename") {
> 				$codename = $value;
> 				next;
> 			}
> 		}
> 
> 		die if $distro eq '';
> 	};
> 	
> 	if ($@)
> 	{
> 		$distro = "Debian";
> 	}
> 
> 	# Support Debian and Ubuntu
> 	# Other shcemes could be supported in the same fashion
> 	if ($distro eq "Debian") {
> 		@releases = ("stable", "testing","unstable");
> 	} elsif ($distro eq "Ubuntu") {
> 		@releases = ("$codename", "$codename-backports", 
> 			"$codename-proposed", "$codename-updates", 
> 			"$codename-security");
> 	} 
> }
75a117
> 	determine_releases();