1
2
3
4
5
6
7
<form method="post" enctype="multipart/form-data" action="????">
<p>Wählen Sie eine Datei aus:<br>
<input name="XLS-Datei" type="file" size="50" maxlength="100000" accept="text/*"><br>
<input name="Script_opt" value="opt_1" type="checkbox">Option1<br>
<input name="Script_opt" value="opt_2" type="checkbox">Option2<br>
<input name="Sctipt_opt" value="opt_3" type="checkbox">Option3<br>
<input type="submit" value="Submit">
2015-04-10T12:44:45 kimmySo etwas Ähnliches habe ich mir gedacht. Das heißt, brauche ich nähmlich 2 Sktpite (ein Dispatcher-Sktipt und ein gewünschtes Sktipt), oder?
2015-04-10T12:44:45 kimmyDann beim Dispatcher-Skript soll das gewünschte Skript mit "system()" ausgeführt werden?
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl use strict; use warnings; use CGI qw(:standard :html4); use CGI::Carp qw(carpout fatalsToBrowser); my $cgi = new CGI; my $filename = $cgi->param("XLS-Datei"); my $script_opt = $cgi->param("Script_opt");
2015-04-10T14:36:05 kimmyWas ist eigentlich "302"?
2015-04-10T14:36:05 kimmyWie kann ich es verwenden?
1 2
my $target_url = get_target_url($script_opt); # URL mit http(s)://... des Ziel-Skripts $cgi->redirect($target_url);
1 2 3 4
my $filename = $cgi->param("XLS-Datei"); my $script_opt = $cgi->param("Script_opt"); system("perl", "pricetracker.pl");