summaryrefslogtreecommitdiffstats
path: root/tools/2isdndb.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/2isdndb.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/2isdndb.pm')
-rw-r--r--tools/2isdndb.pm23
1 files changed, 23 insertions, 0 deletions
diff --git a/tools/2isdndb.pm b/tools/2isdndb.pm
new file mode 100644
index 000000000..4b0f9d8f7
--- /dev/null
+++ b/tools/2isdndb.pm
@@ -0,0 +1,23 @@
+open F, "isdndb.txt" or die "file $file not found";
+open G, ">tutu" or die "file $file not found";
+foreach (<F>) {
+ s/\#.*//;
+ s/\[City\]\s+National//;
+ /\[Country\]\s*(.*)/ and $country = $1;
+ /\[City\]\s*(.*)/ and $city = $1;
+ /\[Name\]\s*(.*)/ and $name = $1;
+ /\[Prefix\]\s*(.*)/ and $prefix = $1;
+ /\[ISDN\]\s*(.*)/ and $isdn = $1;
+ /\[Domain\]\s*(.*)/ and $domain = $1;
+ /\[DNS\]\s*(.*)/ and ($dns1 ? $dns2 : $dns1) = $1;
+ if ($isdn && !$prefix) { $prefix = "" }
+ if (defined $name && defined $prefix && defined $isdn && defined $domain && defined $dns1 && defined $dns2) {
+ print G join("|", $country, $city, join("=>", $name, $prefix . $isdn, $domain, $dns1, $dns2)), "\n";
+ undef $name;
+ undef $prefix;
+ undef $isdn;
+ undef $domain;
+ undef $dns1;
+ undef $dns2;
+ }
+}