index.pl

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