Update cgi_test.pl

theolaa · Jul 30, 2021 · f92429e · f92429e
1 parent bb3b120
commit f92429e
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/cgi/cgi_test.pl b/cgi/cgi_test.pl
@@ -14,12 +14,19 @@
 $data{lastname}=~s/(<([^>]+)>)/""/ig;
 $data{email} = $query->param('email');
 $data{email}=~s/(<([^>]+)>)/""/ig;
+
+# print $query->header;
+print "Content-type: text/html\n\n";
+
+if (($data{firstname} eq '') || ($data{email} eq '')) {
+	print "Missing User Data<br>You will be redirected after five seconds<script>setTimeout(function () {window.location = '../Test.html'}, 5000)</script>";
+
+} else {
+
 #$data{country} = $query->param('country');
 #$data{psw} = $query->param('psw');
 #$data{psw_repeat} = $query->param('psw_repeat');
 
-# print $query->header;
-print "Content-type: text/html\n\n";
 print <<HTML;
 <!DOCTYPE html>
 <html>
@@ -120,3 +127,5 @@
 </body>
 </html>
 HTML
+
+}