#!//usr/bin/perl

use lib qw(/usr/lib/libDrakX);
use utf8
require network::adsl_consts ;
# available at http://cvs.mandrakesoft.com/cgi-bin/cvsweb.cgi/gi/perl-install/network/adsl_consts.pm

my %adsl_data = %network::adsl_consts::adsl_data;

# for each ISP, display values vpi / vci
# the index for adsl_data is formatted as : Country|ISP|province
foreach (sort keys %adsl_data ) {
        my $name=$_ ;
        #my ($country , $isp) = split(/|/,$name) ;
        @tmp=split(/\|/,$name);
        my $country = shift(@tmp);
        my $isp = join " " ,@tmp;

        print $country . " + " . $isp . " | " . $adsl_data{$_}->{vpi} . hex($adsl_data{$_}->{vci}) . " ($adsl_data{$_}->{vci}) \n";
};