index.pl

   1 #!/usr/bin/perl
   2
   3 my $lang = "en";
   4 my @error;
   5
   6 # Set language to german, else use english site
   7 if ($ENV{'HTTP_ACCEPT_LANGUAGE'} =~ /^de(.*)/) {
   8         $lang = "de";
   9 }
  10
  11 print "Status: 302 Moved\n";
  12 print "Pragma: no-cache\n";
  13
  14 if ($ENV{'SERVER_NAME'} eq "source.ipfire.org") {
  15         print "Location: /$lang/source.shtml\n";
  16 } else {
  17         print "Location: /$lang/index.shtml\n";
  18 }
  19
  20 # End http header...
  21 print "\n";