diff options
| author | Mystery Man <unknown@mandriva.org> | 2005-08-30 18:55:27 +0000 |
|---|---|---|
| committer | Mystery Man <unknown@mandriva.org> | 2005-08-30 18:55:27 +0000 |
| commit | ea3a905b182f34bba2f071111d5263f1868c4a6f (patch) | |
| tree | 45713836a82198448c93696b30f3c9ab7ba9aa4a /tools/2isdndb.pm | |
| parent | f5427227e11f6025648f9537ffd3110c003f7e25 (diff) | |
| download | drakx-backup-do-not-use-10_3_0_50mdk.tar drakx-backup-do-not-use-10_3_0_50mdk.tar.gz drakx-backup-do-not-use-10_3_0_50mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_50mdk.tar.xz drakx-backup-do-not-use-10_3_0_50mdk.zip | |
This commit was manufactured by cvs2svn to create tagV10_3_0_50mdk
'V10_3_0_50mdk'.
Diffstat (limited to 'tools/2isdndb.pm')
| -rw-r--r-- | tools/2isdndb.pm | 25 |
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; - } -} |