www/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 } elsif ($ENV{'SERVER_NAME'} eq "tracker.ipfire.org") {
  16         print "Location: /$lang/tracker.shtml\n";
  17 } else {
  18         print "Location: http://www.ipfire.org/$lang/index.shtml\n";
  19 }
  20
  21 # End http header...
  22 print "\n";