[Woc-commit] CVS: woc/src/woc/cgi-src/ctview view.pl,NONE,1.1

[Geert J. <gj...@us...>]

Update of /cvsroot/woc/woc/src/woc/cgi-src/ctview
In directory usw-pr-cvs1:/tmp/cvs-serv23171/woc/cgi-src/ctview

Added Files:
	view.pl 
Log Message:




--- NEW FILE: view.pl ---
#!/usr/local/gnu/bin/perl -w
use diagnostics;
use strict;
use CGI qw(:standard);

print "Content-type: text/html;\n\n";

my $lang1 = param("FROM");
my $lang2 = param("TO");

if ($lang1 ne $lang2) {
  open(INDEXFILE, "<../../web-docs/gui/index/index.$lang1-$lang2.html") ||
    (print "<b>Cannot open file!</b>\n" && exit(1));
  while(<INDEXFILE>) {
    print;
  }
} else {
  print "<b>Languages should not be the same!</b>\n";
}