#!/usr/local/bin/perl use CGI qw/:standard/; $CGI::POST_MAX=1024 * 25; # max 25K posts print <\n"; $Coord_scp = "\n".$CoordVal."\n\n"; $Track_scp = "\n".$TrackVal."\n\n"; $Width_scp = "\n".$WidthVal."\n\n"; $Height_scp = "\n".$HeightVal."\n\n"; $Color_scp = "\n".$ColorVal."\n\n"; $EndType_scp = "[End Rectangle]\n"; $_ = $Type_scp.$Name_scp.$Coord_scp.$Track_scp.$Width_scp.$Height_scp.$Color_scp.$EndType_scp; print OSCP; } sub printOval { $Type_scp = "[Oval]\n"; $Name_scp = "\n".$OvalName."\n\n"; $Coord_scp = "\n".$CoordVal."\n\n"; $Track_scp = "\n".$TrackVal."\n\n"; $Width_scp = "\n".$WidthVal."\n\n"; $Height_scp = "\n".$HeightVal."\n\n"; $Color_scp = "\n".$ColorVal."\n\n"; $EndType_scp = "[End Oval]\n"; $_ = $Type_scp.$Name_scp.$Coord_scp.$Track_scp.$Width_scp.$HeightType_scp.$Color_scp.$EndType_scp; print OSCP; } sub printSprite { $Type_scp = "[Sprite]\n"; $Name_scp = "\n".$SpriteName."\n\n"; $Coord_scp = "\n".$CoordVal."\n\n"; $Track_scp = "\n".$TrackVal."\n\n"; $File_scp = "\n".$FileVal."\n\n"; $EndType_scp = "[End Sprite]\n"; $_ = $Type_scp.$Name_scp.$Coord_scp.$Track_scp.$File_scp.$EndType_scp; print OSCP; } sub printAnimEvent { $Type_scp = "[AnimEvent]\n"; $Name_scp = "\n".$AnimEventName."\n\n"; $AnimationObject_scp = "\n".$AnimationObject."\n\n"; $EndType_scp = "[End AnimEvent]\n"; $_ = $Type_scp.$Name_scp.$AnimationObject_scp.$EndType_scp; print OSCP; } sub printLtsEvent { $Type_scp = "[LtsEvent]\n"; $Name_scp = "\n".$LtsEventName."\n\n"; $LtsAnimEvents_scp = "\n".$LtsAnimEvents."\n\n"; $EndType_scp = "[End LtsEvent]\n"; $_ = $Type_scp.$Name_scp.$LtsAnimEvents_scp.$EndType_scp; print OSCP; } print < Refreshing to manual pages ...

There ain't nothin' in here now ... 

Middle_of_Html_Document

# #####################################################################################

$NUMBER_RECTANGLES = param('NUMBER_RECTANGLES');
$NUMBER_OVALS = param('NUMBER_OVALS');
$NUMBER_SPRITES = param('NUMBER_SPRITES');
$NUMBER_ANIMEVENTS = param('NUMBER_ANIMEVENTS');
$NUMBER_LTSEVENTS = param('NUMBER_LTSEVENTS');

$Objects_scp = "[Objects]\n";
$Objects_End_scp = "[End Objects]\n";
$Events_scp = "[Events]\n";
$Events_End_scp = "[End Events]\n";
$Lts_scp = "[Lts]\n";
$Lts_End_scp = "[End Lts]\n";

$outputScript = "tmp/script.scp";
open (OSCP, ">$outputScript") or print("Cannot open file for output ...");

$_ = $Objects_scp;
print OSCP;

&allRect;

&allOval;

&allSprite;

$_ = $Objects_End_scp.$Events_scp;
print OSCP;

&allAnimEvent;

$_ = $Events_End_scp.$Lts_scp;
print OSCP;

&allLtsEvent;

$_ = $Lts_End_scp;
print OSCP;

close OSCP;
`chmod 777 $outputScript`;

# #####################################################################################

print "Rectangle: ".$NUMBER_RECTANGLES."\n";
print "Oval: ".$NUMBER_OVALS."\n";
print "Sprite: ".$NUMBER_SPRITES."\n";
print "AnimEvent: ".$NUMBER_ANIMEVENTS."\n";
print "LtsEvent: ".$NUMBER_LTSEVENTS."\n";

print <



End_of_Html_Document