Stewart Stremler wrote:
> _____________________________________________________________________________
> #!/bin/csh -f
>
> set RWCND = "RewriteCond %{HTTP_REFERER}"
>
> mkdir /tmp/$$
> pushd /tmp/$$
>
> wget http://www.google.com/supported_domains
>
> touch exclude_list
> foreach i ( `cat supported_domains | grep -v '^\.google\.com$'` )
> echo "$RWCND ^http://www$i [OR]" >> exclude_list
> end
>
> popd
> cp /tmp/$$/exclude_list ./
> _____________________________________________________________________________
sh is too easy:
$ for i in `lynx -dump http://www.google.com/supported_domains`; do echo
"RewriteCond %{HTTP_REFERER} ^http://www$i [OR]"; done > exclude_list
perl is a bit more difficult, as one would likely want to use a perl
module for the http stuff. Bah! Why bother? A shell one-liner is all
that is needed.
-john
--
[email protected]
http://www.kernel-panic.org/cgi-bin/mailman/listinfo/kplug-lpsg
