#!/usr/bin/perl
#use File::Find;
# description: Dump the SuSE 9.0+ installation sources

# YaST database folder path
my $fldr_start = '/var/adm/YaST/InstSrcManager';

my @dirs = <$fldr_start/IS_CACHE_0x000000*>;
print "found ", $#dirs, "dirs\n";

#print join "\r\n", @dirs, "\n";

foreach (@dirs) {
#print $_, "\n";
next unless -s "$_/DESCRIPTION/description" ;
open IN,"<$_/DESCRIPTION/description" or die "file not found \n";
my @lines = <IN>;
#chomp @lines;
my $url = $lines[1];
$url =~ s/^=URL://;
$url =~ s/\n$//;

my $status= ( $lines[3] =~ /1$/ )? "enabled" : "disabled";
print $url," ", $status, "\n";
} 

__END__

found 5dirs
 http://ftp.gwdg.de/pub/linux/misc/suser-guru/rpm/9.3 enabled
 file:/home/tlviewer enabled
 ftp://mirror.mcs.anl.gov/pub/suse/x86_64/9.3/ enabled
 dvd:/// disabled
 http://ftp.gwdg.de/pub/linux/misc/packman/suse/9.3 enabled
 ftp://ftp.oregonstate.edu/pub/suse/suse/x86_64/9.3 enabled