init III

2024-10-14 00:08:40 +02:00
parent dbfba56f66
commit 1462d52e13
4572 changed files with 2658864 additions and 0 deletions
--- a/Webseiten/bildergallerie/scripts/google.pl
+++ b/Webseiten/bildergallerie/scripts/google.pl
@@ -0,0 +1,23 @@
+#!/bin/perl
+# google.pl
+
+use strict;
+
+use CGI qw(:standard);
+use myHTML;
+
+#print header();
+
+my $q = param('q');
+
+p2 "<html>",
+   "<head>",
+   "<title>Google</title>",
+   "</head>",
+   "<body onLoad=\"javascript:window.open('http://www.google.de/search?q=$q','_top','');\">";
+
+# write_log("google","$q");
+
+p2 "</body>",
+   "</html>";
+