You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
384 B
24 lines
384 B
4 months ago
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# $Id: twsprint.pl,v 1.3 2006/01/23 21:39:30 ddoughty Exp $
|
||
|
|
#
|
||
|
|
# Source File: twsprint.pl
|
||
|
|
|
||
|
|
# Get config
|
||
|
|
require 'sitecfg.pl';
|
||
|
|
require 'testlib.pl';
|
||
|
|
|
||
|
|
&app_initialize;
|
||
|
|
|
||
|
|
print "Content-Type: text/html\n\n";
|
||
|
|
|
||
|
|
if (&get_session($FORM{'tid'})) {
|
||
|
|
$fn = "$FORM{'fn'}";
|
||
|
|
open(WSFILE,"<$fn");
|
||
|
|
@lines = <WSFILE>;
|
||
|
|
close WSFILE;
|
||
|
|
for (0 .. $#lines) {
|
||
|
|
print "$lines[$_]";
|
||
|
|
}
|
||
|
|
}
|