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.
20 lines
364 B
20 lines
364 B
#!/usr/bin/perl
|
|
#
|
|
# $Id: imagepop.pl,v 1.3 2006/01/23 21:39:30 ddoughty Exp $
|
|
#
|
|
# Source File: image.pl
|
|
|
|
require 'sitecfg.pl';
|
|
require 'testlib.pl';
|
|
|
|
&app_initialize;
|
|
|
|
print "Content-Type: text/html\n\n";
|
|
|
|
if (&get_session($FORM{'tid'})) {
|
|
print "<HTML>
|
|
<BODY>
|
|
<IMG SRC=\"$cgiroot/image.pl?tid=$SESSION{'tid'}\&img=$FORM{'img'}\" BORDER=0>
|
|
</BODY>
|
|
</HTML>\n";
|
|
}
|
|
|