#!/usr/bin/perl $site = $ENV{'HTTP_HOST'}; # or &dump('nohost.html'); $query = $ENV{'QUERY_STRING'}; $path = $ENV{'PATH_INFO'}; # $path =~ s!^/~!/home/!o if $path; $_ = $site; study; s/^www\.//i; SITE: { (!$site || /^\d+\.\d+\.\d+\.\d+$/) and do { print <sex + drugs + mp3 music

Sie brauchen dringend einen neuen Web-Browser. $ENV{HTTP_USER_AGENT} unterstützt offensichtlich kein HTTP Host.	You have a serious need for a new web browser. $ENV{HTTP_USER_AGENT} apparently doesn't support HTTP Host.
Oder haben Sie allen ernstes eine IP-Nummer eingetippt? Na dann brauchen Sie sich auch nicht zu wundern.

X exit; }; /^(.*psyc.*)\.pages/io && do { $target = 'http://about.psyc.eu'; $path = "/$1"; last SITE; }; /^tagesspiegel\./io && do { $target = 'http://www.topfx.com/cgi-bin/mixmaster.cgi?layouturl=http%3A%2F%2Fwww.tagesspiegel.de&contenturl=http%3A%2F%2Fwww.tontransfer.de%2Ftba%2Fp_samstag.htm'; last SITE; }; # /^mp3\./io && do { # &dump('mp3guide.html'); # }; # /^symlynx\./io && do { # &dump('symlynx.html'); # # 'http://www.informatik.uni-oldenburg.de/~lynx/music/studio93'; # }; /^html\./io && do { $target = 'http://lynXified.pages.de/html'; last SITE; }; # /^perl\./io && do { # &dump('perl.html'); # }; /^confetti\./io && do { $target = 'http://www.hgb-leipzig.de/~sylvia/confetti'; last SITE; # &dump('multi/confetti/index.html'); }; /^tok[yi](o|oti[ck]a)\./io && do { $target = 'http://www.hgb-leipzig.de/~sylvia/tokyotika'; last SITE; # &dump('multi/confetti/index.html'); }; ## NU WAVE /commercial.*break/io && do { $target = 'http://www.sempex.de/bands/com_breakup'; last SITE; }; /(andreas.*d|d)orau/io && do { $target = 'http://www.laut.de/wortlaut/artists/d/dorau_andreas'; last SITE; }; /^(chat|ved|muve)\./io && do { $target = 'http://symlynX.com'; last SITE; }; # /too\.good\.pages/io && do { # &dump('toogood.html'); # }; # /(musik|brounge|musikbrounge)/io && do { # $target = 'http://ve.symlynX.com:33333/Brounge'; # last SITE; # }; # /\bmy\.pages\.tm$/io && do { # $target = 'http://my.pages.de'; # last SITE; # }; /^(berlin\.by\.b|bbb)ike\./io && do { $target = 'http://user.cs.tu-berlin.de/~eserte/bbbike/cgi/bbbike.cgi'; last SITE; # &dump('multi/confetti/index.html'); }; m!^stud(i|ent|enten)\..*\~magnus!i && do { $target = 'http://www.unix-ag.uni-kl.de/~magnus'; last SITE; }; /^inspiratio(n|n\.club)\./io && do { $target = 'http://www.inspirationClub.de'; last SITE; }; /^gimp\./io && do { $target = 'http://www.goof.com/pcg/marc'; $file = '/gimp.html'; last SITE; }; /^vi\.pages/io && do { $target = 'http://my.pages.de'; $file = '/vi-refcard.html'; last SITE; }; m!^stud(i|ent|enten)\.!i && do { $target = 'http://www.unix-ag.uni-kl.de/~ngs'; last SITE; }; ## TODO # /^w48\.pages\.de$/io && do { # $target = 'http://129.70.123.8/~mek/h-tel'; # last SITE; # }; ## # /^jobcon\.pages\.de$/io && do { # $target = 'http://home.t-online.de/home/n.meerkamp.webcon'; # $file = '/jobcon.htm'; # last SITE; # }; /^die\.gruppe\.pages\.de$/io && do { $target = 'http://www.geocities.com/SoHo/Lofts/3352'; $file = '/gruppe.html'; last SITE; }; # /^web\.edit\.pages\.de$/io && do { # $target = 'http://www.pop-nidda.de/wenzel'; # last SITE; # }; # /^as-software\.pages\.de$/io && do { # $target = 'http://as-software.ulf.de'; # last SITE; # }; /^pelicorn\.pages\.de$/io && do { $target = 'http://www.geocities.com/SoHo/Lofts/3352'; $file = '/pelicorn.html'; last SITE; }; # /comparts\./io && do { # $target = 'http://xix.de/comparts'; # last SITE; # }; ## sites by Daniel Notthoff # /^danielson\.pages\.de$/io && do { # $target = 'http://www.notthoff.net/webdesign'; # last SITE; # }; # /^gewehr\.pages\.de$/io && do { # $target = 'http://members.aol.com/FGewehr'; # last SITE; # }; /^tarot\.musical\.pages\.de$/io && do { $target = 'http://members.aol.com/Tarotmusik'; last SITE; }; /^cilento\.pages\.de$/io && do { $target = 'http://members.aol.com/NBande'; last SITE; }; ###### /^badewannen?\./io && do { $target = 'http://home.t-online.de/home/BurghardV'; last SITE; }; # /^subreality\./io && do { # $target = 'http://www.ksk-sigmaringen.de/RTP'; # #target = 'http://privat.schlund.de/subreality'; # #target = 'http://www.geocities.com/SoHo/Studios/7806'; # last SITE; # }; /^rubber\./io && do { $target = 'http://www.elcafe.com/~rubberboy'; last SITE; }; /^sinnlose\./io && do { $target = 'http://www.furchtbar.net'; last SITE; }; /^bondage\./io && do { $target = 'http://www.geocities.com/Athens/5642'; last SITE; }; (/^max*\./io || /\bdont\.do\.that\b/io) && do { $target = 'http://www.geocities.com/heartland/ranch/7321'; last SITE; }; ## /^(radio\.f|f)lora\./io && do { $target = 'http://www.comlink.apc.org/radio.flora'; $dontwarp = 1; last SITE; }; /^trike\./io && do { $target = 'http://www.trikers.org/pages'; last SITE; }; # /^feuerwehr\./io && do { # $target = 'http://www.bubis.com/fwpforzheim'; # last SITE; # }; # TODO MetaSite draus machen: /^(cheats|dlh)\./io && do { # $target = 'http://cips02.physik.uni-bonn.de/~dlh'; $target = 'http://dlh.net'; last SITE; }; # /^(pfadfinder|dpv)\./io && do { # $target = 'http://mluwis17.wiwi.uni-halle.de/~tom'; # $file = '/tomdpv.html'; # last SITE; # }; # /^church\./io && do { # $target = 'http://www.rat.de/der.fels/church.pages.de'; # last SITE; # }; /^ant\.pages\.(de|tm)$/io && do { &dump('ant.html'); }; /^pink\.pages\.(de|tm)$/io && do { &dump('pink.html'); }; /^bingo\.pages\.de$/io && do { &dump('bingo.html'); }; /^dtv\.pages\.(de|tm)$/io && do { &dump('dtv.html'); }; /\bdutchie\b/io && do { &dump('dutchie.html'); }; /\bemily\W?joy\b/io && do { &dump('joy.html'); }; (/^physi..?/i || $path =~ /\bipion\b/i) && do { undef $path; $target = 'http://www.ipion.com'; last SITE; }; # /\bpages\.(de|tm)$/io && do { &dump('pages.html'); # }; # print <; } close I; exit; }