index.pl

   1 #!/usr/bin/perl
   2
   3 print "Status: 302 Moved\n";
   4 print "Pragma: no-cache\n";
   5
   6 if ($ENV{'SERVER_NAME'} eq "source.ipfire.org") {
   7         print "Location: /en/source.shtml\n";
   8 } else {
   9         print "Location: /en/index.shtml\n";
  10 }
  11
  12 # End http header...
  13 print "\n";