summaryrefslogtreecommitdiffstats
path: root/tools/2isdndb.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-03-03 13:15:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-03-03 13:15:44 +0000
commit3805709df4a357a9b57b5067643e3d7ec755c9d9 (patch)
tree93916777ab3d9c2b3ec51abaf3a7d82dc3e64ecb /tools/2isdndb.pm
parent5224ba4da68d1092e596f8eb59202dac8fcb2206 (diff)
downloaddrakx-3805709df4a357a9b57b5067643e3d7ec755c9d9.tar
drakx-3805709df4a357a9b57b5067643e3d7ec755c9d9.tar.gz
drakx-3805709df4a357a9b57b5067643e3d7ec755c9d9.tar.bz2
drakx-3805709df4a357a9b57b5067643e3d7ec755c9d9.tar.xz
drakx-3805709df4a357a9b57b5067643e3d7ec755c9d9.zip
remove obsolete unused stuff
Diffstat (limited to 'tools/2isdndb.pm')
-rw-r--r--tools/2isdndb.pm25
1 files changed, 0 insertions, 25 deletions
diff --git a/tools/2isdndb.pm b/tools/2isdndb.pm
deleted file mode 100644
index 536808706..000000000
--- a/tools/2isdndb.pm
+++ /dev/null
@@ -1,25 +0,0 @@
-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;
- /\[Encaps\]\s*.*/ and do { defined $dns1 and $dns2=""; };
- /\[Domain\]\s*(.*)/ and $domain = $1;
- /\[DNS\]\s*(.*)/ and ($dns1 ? $dns2 : $dns1) = $1;
- /\[End\]\s*(.*)/ and do { undef $name; undef $prefix; undef $isdn; undef $domain; undef $dns1; undef $dns2; };
- if ($isdn && !$prefix) { $prefix = "" }
- if (defined $name && 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;
- }
-}