#!/usr/bin/perl
######## Get the request ########
local ($request, $in{"swf"}, $in{"width"}, $in{"height"}, $in{"bgcolor"}, $in{"prefix"});
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $request, $ENV{'CONTENT_LENGTH'});
} elsif ($ENV{'REQUEST_METHOD'} eq "GET" ) {
$request = $ENV{'QUERY_STRING'};
}
%in = &url_decode(split(/[&=]/, $request));
######### variables ###########################
local $swf = $in{"swf"}; ## this is the shockwave file
local $width = $in{"width"}; ## width of object
local $height = $in{"height"}; ## height of object
local $bgcolor = $in{"bgcolor"}; ## background color
local $prefix = 'http://www.claus.com'.$in{"prefix"};
## THESE VARIABLES ARE CALCULATED #############
local $objname = "test";
local $DoFS = $objname."_DoFSCommand";
local $FS = $objname."_FSCommand";
local $rootfolder = "/home/httpd/html"; ## CHANGE TO CORRECT ROOT FOLDER, if necessary
local $mimetype = "application/x-shockwave-flash";
local $plugin = "Shockwave Flash";
local $pluginspage = "http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash";
local $codebase = "http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0";
local $classid = "clsid:D27CDB6E-AE6D-11cf-96B8-444553540000";
######## Count the number of parameters #########
local $count = 1;
while ($in{"id$count"} ne "")
{
$count++;
}
$count--;
######################################## B E G I N H T M L ############################
print "Content-type: text/plain", "\n\n";
print <
EOM
exit;
sub url_decode {
foreach (@_) {
tr/+/ /;
s/%(..)/pack("c",hex($1))/ge;
}
@_;
} # End URL decode
Error processing SSI file
