Add files using upload-large-folder tool

718a32c verified over 1 year ago

2.93 kB

#!/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";

#------------------------------------------------------------------------------

	#!/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";

	#------------------------------------------------------------------------------