#!/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[$_]";
	}
}