makeing it run on the older versions of Perl CGI package
diff --git a/asn1c/webcgi/asn1c.cgi b/asn1c/webcgi/asn1c.cgi
index 2dbab3c..8214e9e 100755
--- a/asn1c/webcgi/asn1c.cgi
+++ b/asn1c/webcgi/asn1c.cgi
@@ -198,10 +198,12 @@
@gotSafeNames = ();
@gotNames = param('file');
if($#gotNames != -1 && $gotNames[0] ne "") {
+ $gotFile = param('file');
@gotFiles = upload('file');
} else {
@gotNames = ();
@gotFiles = ();
+ $gotFile = undef;
}
if($#gotNames == -1) {
@@ -237,22 +239,22 @@
my $sandbox = $sessionDir . '/' . $transactionDir;
mkdir($sandbox, $DM) or bark($SandBoxInitFailed);
- open(I, '> ' . $sandbox . '/+Names');
- print I join("\n", @gotNames);
- open(I, '> ' . $sandbox . '/+safeNames');
- print I join("\n", @gotSafeNames);
+ open(O, '> ' . $sandbox . '/+Names');
+ print O join("\n", @gotNames);
+ open(O, '> ' . $sandbox . '/+safeNames');
+ print O join("\n", @gotSafeNames);
for(my $i = 0; $i <= $#gotSafeNames; $i++) {
local $name = $gotSafeNames[$i];
- open(I, '> ' . $sandbox . '/'. $name);
+ open(O, '> ' . $sandbox . '/'. $name);
if($#gotFiles == -1) {
- print I scalar(param('text'));
+ print O scalar(param('text'));
} else {
- while(<$gotFiles[$I]>) {
- print I;
+ while(<$gotFile>) {
+ print O;
}
}
- close(I);
}
+ close(O);
my $inChDir = makeSessionDirName("/", $session) . $transactionDir;
my $options = '';