1 files changed, 103 insertions, 0 deletions
diff --git a/web/index.cgi b/web/index.cgi
new file mode 100644
index 000000000..dcc20b0aa
--- /dev/null
+++ b/web/index.cgi
@@ -0,0 +1,103 @@
+#!/usr/bin/perl -Tw
+use warnings;
+use strict;
+$|++;
+
+# file: index.cgi
+
+# Herve Saint-Amand
+# Universitaet des Saarlandes
+# Tue May 13 20:09:25 2008
+
+# When we do Moses translation of Web pages there's a little tool frame at the
+# top of the screen. This script takes care of printing the frameset and that
+# top frame. It also invokes the main script with the proper URL param.
+
+# You're most probably not interested in the code that's in here. Have a look
+# a translate.cgi instead. That's where the meat is.
+
+#------------------------------------------------------------------------------
+# includes
+
+use CGI;
+use CGI::Carp qw/fatalsToBrowser/;
+
+use URI::Escape;
+
+#------------------------------------------------------------------------------
+# constants, global vars
+
+(my $SELF_URL = $ENV{QUERY_STRING}) =~ s![^/]*$!!;
+
+my $TRANSLATE_CGI = 'translate.cgi';
+
+#------------------------------------------------------------------------------
+# read CGI params
+
+my %params = %{{
+    url   => undef,
+    frame => undef,
+}};
+
+my $cgi = new CGI;
+
+foreach my $p (keys %params) {
+    $params{$p} = $cgi->param ($p)
+        if (defined $cgi->param ($p));
+}
+
+#------------------------------------------------------------------------------
+# print out
+
+print "Content-Type: text/html\n\n";
+
+print
+    "<html>\n" .
+    "  <head>\n" .
+    "    <title>$params{url} -- Moses translation</title>\n" .
+    "    <style>\n" .
+    "      p, a, b, body {\n" .
+    "        font-family: verdana;\n" .
+    "        font-size: 9pt;\n" .
+    "      }\n" .
+    "    </style>\n" .
+    "  </head>\n";
+
+if (!$params{url}) {
+    print
+        "  <body bgcolor='#ffFFfF'>\n" .
+        "    <h1>Moses Web Interface</h1>\n" .
+        "    <form method='GET' action='$SELF_URL'>\n" .
+        "      <input name='url' size='60'>\n" .
+        "      <input type='submit' value='Translate'>\n" .
+        "    </form>\n" .
+        "  </body>\n";
+
+} else {
+
+    # check that we have a URL and it's absolute
+    $params{url} = "http://$params{url}"
+        unless ($params{url} =~ m!^[a-z]+://!);
+    my $URL = uri_escape ($params{url});
+
+    if (!$params{frame}) {
+        print
+            "  <frameset rows='30,*' border='1' frameborder='1'>\n" .
+            "    <frame src='$SELF_URL?frame=top&url=$URL'>\n" .
+            "    <frame src='$TRANSLATE_CGI?url=$URL'>\n" .
+            "  </frameset>\n";
+
+    } else {
+        print
+            "  <script src='index.js'></script>\n" .
+            "  <body bgcolor='#ccCCcC' onload='startCount()'>\n" .
+            "    <b>Moses translation of\n" .
+            "    <a href='$params{url}' target='_top'>$params{url}</a></b>\n" .
+            "    <span id='status'></span>\n" .
+            "  </body>\n";
+    }
+}
+
+print "</html>\n";
+
+#------------------------------------------------------------------------------