hi,

i am trying to use use squid with an external program.
So i did:
"redirect_program /home/mysession/rep/executable"

In my Perl executable, i take the argv[0] value.

But what kind ok value do i have to print out ?
for example my perl script is :
-------------------------
#!/usr/bin/perl -w
use strict;

$|=1;
while (<>) {
   my @X = split;
   my $url = $X[0];
   my $test = 0;   #just a test value for later
      if ($url =~ /^http:\/\/internal\.foo\.com/) {
         $url =~ s/^http/https/;
         $url =~ s/internal/secure/;
         if($test==0){
                print "302:$url\n";
         }else{
                print  "file:///home/template.html";
         }
      }else{
         if($test==0){
                print "http://fr.yahoo.com\n";;
         }else {
                print  "file:///template.html";
         }
      }
}
------------------------- 
the result is that i have the yahoo site on my screen
without pictures.

and if i replace 
print "http://fr.yahoo.com\n";; 
by
print "file:///template.html";

it doesn't works


any ideas?

 


        

        
                
___________________________________________________________________________ 
Faites de Yahoo! votre page d'accueil sur le web pour retrouver directement vos 
services préférés : vérifiez vos nouveaux mails, lancez vos recherches et 
suivez l'actualité en temps réel. 
Rendez-vous sur http://fr.yahoo.com/set

Reply via email to