Differences

This shows you the differences between two versions of the page.

--- squid:acls:acl_example_usage [2020/04/07 12:00] – peter
+++ squid:acls:acl_example_usage [2020/07/15 09:30] (current) – external edit 127.0.0.1
@@ Line 312: / Line 312: @@
 </code>
+The actual rewriter script that is called would be something like this:
-<WRAP info>
+<code perl>
-**NOTE:**  Do not place quotes around the path...this could break it.
+#!/usr/bin/env perl
-</WRAP>
+$|=1;
+while (<>) {
+  $url = m/^([^ ]*)/;
+  if ($url !~ /^http:\/\/www\.hostname\.com/) {
+    $url =~ s@^http://www\.hostname\.com/(.*)@http://www.hostname.com/\1@;
+    print "301:$url\n";
+  } else {
+    print "$url\n";
+  }
+}
+</code>
+If it exists with abnormal program termination and this is in the cache.log:
+<code bash>
+/03/23 19:26:12| helperOpenServers: Starting 5 'c:\squid\php\redirect.pl' processes
+/03/23 19:26:12| ipcCreate: CHILD: c:\squid\php\redirect.pl: (8) Exec format error
+/03/23 19:26:12| ipcCreate: PARENT: OK read test failed
+/03/23 19:26:13| --> read returned 4
+</code>
+Then could be to not place quotes around the path...
 ----