blob: dcc20b0aae219acd7b20044cbfd9f8e5a7af4bb9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
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";
#------------------------------------------------------------------------------
|
