summaryrefslogtreecommitdiffstats
path: root/tools/2adsldb.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2000-08-24 18:57:58 +0000
committerdamien <damien@mandriva.com>2000-08-24 18:57:58 +0000
commit2a41151ca87123e05e3d4f5bc501b07bba0c19dd (patch)
tree38299998e561671edd729f330ec0854b4e116190 /tools/2adsldb.pm
parent393abbe7877241b1f840acab88dd91dbe2379a3f (diff)
downloaddrakx-backup-do-not-use-2a41151ca87123e05e3d4f5bc501b07bba0c19dd.tar
drakx-backup-do-not-use-2a41151ca87123e05e3d4f5bc501b07bba0c19dd.tar.gz
drakx-backup-do-not-use-2a41151ca87123e05e3d4f5bc501b07bba0c19dd.tar.bz2
drakx-backup-do-not-use-2a41151ca87123e05e3d4f5bc501b07bba0c19dd.tar.xz
drakx-backup-do-not-use-2a41151ca87123e05e3d4f5bc501b07bba0c19dd.zip
updated net cnx
Diffstat (limited to 'tools/2adsldb.pm')
-rw-r--r--tools/2adsldb.pm17
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,
+}
+