From e560f4cc9eb3506653042c7baffc9dc518f00e89 Mon Sep 17 00:00:00 2001
From: Lev Walkin <vlm@lionet.info>
Date: Mon, 11 Oct 2004 09:50:41 +0000
Subject: [PATCH] makeing it run on the older versions of Perl CGI package
---
asn1c/webcgi/asn1c.cgi | 20 +++++++++++---------
1 file changed, 11 insertions(+), 9 deletions(-)
diff --git a/asn1c/webcgi/asn1c.cgi b/asn1c/webcgi/asn1c.cgi
index 2dbab3c7..8214e9e8 100755
--- a/asn1c/webcgi/asn1c.cgi
+++ b/asn1c/webcgi/asn1c.cgi
@@ -198,10 +198,12 @@ print LOG isoTime() . "\tIP=$ENV{REMOTE_ADDR}";
@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 @@ if($#gotSafeNames >= 0) {
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 = '';
--
GitLab