Ik heb nu het onderstaande scriptje gemaakt, alles werkt goed, alleen het redirecten gaat niet lukken *zucht* ... ik heb use strict gecomment, omdat het script hier anders op vast loopt, maatr volgens mij is dit wel noodzakelijk om de redirect goed uit te laten voeren.
ik krijg nu heel mooi op het scherm te staan : Location: index.cgi
...
ik krijg nu heel mooi op het scherm te staan : Location: index.cgi
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| #!/usr/local/bin/perl -w
eval {
# use strict;
use CGI qw(:standard);
print "Content-type: text/html \n\n";
$input = new CGI;
};
if ($@) { &error("$@"); }
$link = $input->param('link');
$onderdeel = $input->param('onderdeel');
$text = $input->param('text');
$textbestand = "../WWW/$link.txt";
open (BESTAND, "> $textbestand") or die "";
print BESTAND "$onderdeel=$text";
close BESTAND;
print "Location: index.cgi"; |