diff options
| author | damien <damien@mandriva.com> | 2000-08-24 18:57:58 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2000-08-24 18:57:58 +0000 |
| commit | 2a41151ca87123e05e3d4f5bc501b07bba0c19dd (patch) | |
| tree | 38299998e561671edd729f330ec0854b4e116190 /tools/2adsldb.pm | |
| parent | 393abbe7877241b1f840acab88dd91dbe2379a3f (diff) | |
| download | drakx-2a41151ca87123e05e3d4f5bc501b07bba0c19dd.tar drakx-2a41151ca87123e05e3d4f5bc501b07bba0c19dd.tar.gz drakx-2a41151ca87123e05e3d4f5bc501b07bba0c19dd.tar.bz2 drakx-2a41151ca87123e05e3d4f5bc501b07bba0c19dd.tar.xz drakx-2a41151ca87123e05e3d4f5bc501b07bba0c19dd.zip | |
updated net cnx
Diffstat (limited to 'tools/2adsldb.pm')
| -rw-r--r-- | tools/2adsldb.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tools/2adsldb.pm b/tools/2adsldb.pm new file mode 100644 index 000000000..23328aafc --- /dev/null +++ b/tools/2adsldb.pm @@ -0,0 +1,17 @@ +open F, "isplist.txt" or die "file $file not found"; +open G, ">tutu" or die "file $file not found"; +foreach (<F>) { + s/\#.*//; + /.*ADSL.*/ or next; +#| NOM | PAYS | CONNECTION | MAILTYPE | SMTP | MAILSERVER | NEWS | MY1DNS | MY2DNS | PROXY | PROXYSERVER | DHCP | EMAIL + s/(.*)france(.*)/$1France$2/; + s/(.*)FRANCE(.*)/$1France$2/; + s/(.*)USA(.*)/$1United States$2/; + s/(.*)U.S.A(.*)/$1United States$2/; + s/(.*)US(.*)/$1United States$2/; + s/(.*)usa(.*)/$1United States$2/; + s/(.*)club-internet(.*)/$1club internet$2/; + my ($name, $country, $connexion, $mailtype, $smtp, $popserver, $mailserver, $news, $dns1, $dns2, $proxy, $proxyserver, $dhcp, $email) = split /\|/; + print G join("|", $country, join("=>", $name, $dns1, $dns2)), "\n"; #$domain, +} + |