source: website/index.cgi @ 879

Last change on this file since 879 was 879, checked in by Earle Martin, 15 years ago

Add the openguides.org website!

  • Property svn:executable set to *
File size: 843 bytes
Line 
1#!/usr/bin/perl
2
3use warnings;
4use strict;
5
6my $url = "http://openguides.org/";
7my $env = '';
8
9if ($ENV{'QUERY_STRING'}) {
10  $env = $ENV{'QUERY_STRING'};
11  $env =~ s/page=//;
12  $env = 'page/' . $env;
13}
14
15print <<HTML;
16Server Response: http://openguides.org/index.cgi
17Status: HTTP/1.1 301 Moved Permanently
18Content-Type: text/html
19Location: $url$env
20
21<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
22<html>
23<head>
24        <meta http-equiv="Refresh" content="0; url=$url$env">
25        <meta http-equiv="Status" content="HTTP/1.1 301 Moved Permanently">
26        <meta http-equiv="Location" content="$url$env">
27        <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
28        <title>301 Moved Permanently</title>
29</head>
30<body>
31<h1>301 Moved Permanently</h1>
32<p>
33This resource has moved to <a href="$url$env">$url$env</a>.
34</p>
35</body>
36</html>
37HTML
Note: See TracBrowser for help on using the repository browser.