list « advertising « share « perl-install - drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

summary refs log tree commit diff stats

path: root/perl-install/share/advertising/list

blob: fb5689909b8c3c98a13ac3f8f2731aa3f644fae3 (plain)

00-thanks.png
01-gnu.png
02-internet.png
03-graphic.png
04-develop.png
05-contcenter.png
06-user.png
07-server.png
08-games.png
09-MDKcampus.png
10-MDKexpert.png
11-consul.png
12-MDKstore.png
13-Nvert.png

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; } }