[help-me-pls]

Hi,

I have downloaded a flash game which has a perl highscore board. This is how i think it works the flash file calls the perl script which then writes the score and scorers name to a text file, then the text file is loaded into the swf.

This all worked perfectly on the unix space i had but now I only have windows space. My hosts have run a piece of perl on my windows 2000 IIS 5 server to show that perl is supported but the perl i am using doesnt work because it was written for a unix server. Does anybody know how to change the perl i have got so it will work, or another method of getting my highscore board up and running (asp is supported but php isn't)?

unfortunatley i cant cancel my windows hosting and go back to unix, because i would have to rebuy my domain name and my hosts wont refund the money because their perl works.

This is the flash code:

Code:

//scoresURL = "scores.txt";
scoresURL = "http://www.mysite.com/cgi-bin/scores.pl";

if (score) {
	stop();
	pos = Selection.getCaretIndex();
	if (pos == -1) Selection.setFocus("newName");
}
else nextFrame();

This is the perl:

Code:

#!/usr/bin/perl

$hsfile = "$hsfile = "scores.txt";
# CHMOD this to 666 and this perl script to 755

print "Cache-Control: max-age=0, must-revalidate\n";
print "Expires: Sun, 31 Oct 2001 12:00:00 GMT\n";
print "Content-Type: text/plain\n\n";

# Read input from POST http header into buffer
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$len = length($buffer);

if ($len > 12) {
	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
	        ($nm, $val) = split(/=/, $pair);
	        $NEWDATA{$nm} = $val;
	}

	open (FILE,"<$hsfile");
	flock (FILE,2);
	$line = <FILE>;

	$count = 0;
	$newline = "";
	$ranked = 0;
	@pairs = split(/&/, $line);
	foreach $pair (@pairs) {
		if ($count < 101) {
			($nm, $val) = split(/=/, $pair);
			if (substr($nm,0,4) eq "name") {
				$newline .= "name$count=$val&";
			}
			else {
				if ($ranked == 0 && $NEWDATA{'score'} > $val && $NEWDATA{'name'} ne "") {
					$count++;
					$newline .= "score$count=$NEWDATA{'score'}&name$count=$NEWDATA{'name'}&";
						$ranked = 1;
				}
	
				$count++;
				$newline .= "score$count=$val&";
			}
		}
	}
	print $newline;
	close (FILE);

	$lennew = length($newline);
	if ($lennew > 12) {
		open (FILE,">$hsfile");
		flock (FILE,2);
		print FILE "$newline";
		close (FILE);
	}
}
else {
	open (FILE,"<$hsfile");
	flock (FILE,2);
	$line = <FILE>;
	print "$line";
	close (FILE);
}

The text file looks like this:

Code:

score1=10&name1=DAVE

If anyone can help (even just a little bit), i would be so so so so grateful.