Sven (κ): Seiten am IIS umleiten

Beitrag lesen

SELF-Forum

Seiten am IIS umleiten

Sven (κ)
−1 Informationen zu den Bewertungsregeln

Hi wahsaga,

Wie kann ich alle Zugriffe auf meine Domain auf eine Seite umleiten, die einen Wartungstext beinhaltet?
Was ist dein Webserver?

steht doch im Topic: IIS.
Die Antwort ist entsprechend einfach: Es gibt bei diesem - verzeihung für den Ausdruck - verkrüppelten Webserver keine einfache und mächtige Konfigurationsdatei, sondern nur ein umständliches GUI, wo man alles einstellen kann. Dem Webserver traue ich zwar nicht zu, dass er überhaupt in der Lage ist, deine Aufgabe zu bewerkstelligen, aber falls nicht, schreib dir doch einfach ein Programm, das alle deine Seiten mit einer Weiterleitung ersetzt ;-)

Vor sehr langer Zeit habe ich ein so simples Ding mal in Perl geschrieben. Weil ich gerade so Langeweile hatte habe ich es ein bisschen für dich angepasst:

  
#!D:/server/perl/bin/perl -w  
#  
# Füllt die Daten in filelist.txt (pro Zeile ein Dateiname) mit  
# template.txt, erstellt sie (wohl nötig)  
#  
  
  use CGI;  
  use CGI::Carp qw(fatalsToBrowser);  
  
  print "Content-type: text/html\n\n";  
  print "<html><head><title>Webseitenfüllerprogramm</title></head><body><pre>";  
  
  $url_prefix = 'http://www.meineneuedomainoderähnliches.de'; # prefix vor [URL]  
  $datadir = "datas/";  
  
  open(FILELIST, "<filelist.txt") || die("Filelistfile 'filelist.txt' kann nicht geöffnet werden.");  
  my @filelist = <FILELIST>;  
  close(FILELIST);  
  
  open(TEMPLATE, "<template.txt") || die("Templatefile 'template.txt' kann nicht geöffnet werden.");  
  my @template = <TEMPLATE>;  
  close(TEMPLATE);  
  
  my $template = join("", @template);  
  
  $x = 0;  
  foreach(@filelist)  
  {  
      $x++;  
      # Check auf Unterordner & ggf. anlegen  
      my @trenn = split(/\\|\//, $told);  
      my $trenn = @trenn;  
      if($trenn == 2)  
      {  
          $dir = opendir(VERZ, $datadir.$trenn[0]);  
          if($dir)  
          {  
              SaveFile($datadir.$_, $template);  
          }  
          else  
          {  
              mkdir($datadir.$trenn[0]);  
              print "Verzeichnis erstellt: $trenn[0]\n";  
              SaveFile("$datadir$trenn[0]/$trenn[1]", $template);  
          }  
          closedir(VERZ);  
      }  
      else  
      {  
          SaveFile($datadir.$told, $t);  
      }  
  }  
  
  sub SaveFile  
  {  
      my $file = shift;  
      my $text = shift;  
      open(WRITEFILE, ">$file") || die("DATEI '$file' kann zum schreiben nicht geöffnet werden.");  
      print WRITEFILE $text;  
      close(WRITEFILE);  
      print "Datei erstellt: $file\n";  
  }

OK, besonders brilliant ist es nicht (naja, es ist mindestens 2 Jahre alt...), aber es erfüllte damals seinen Zweck ;)

*SNCR*

Gruß,

Sven

Beitrag melden
−1
Informationen zu den Bewertungsregeln