[squid-users] Re: Squid 3.2.2 + localhost

Yes, I've read the mail but I think that it is better to post it here... ;-)
The main problem is that if I rewrite the $url (localhost [::1], or
[5001::52] [3001::52] that are the addresses of the interfaces) it doesn't
work. If I rewrite $url with "302:" code in front it works... but the
behavior of the system is completely different.
Replying to your requests, I'm working on 4 virtual machine called origin,
core, mobile1, mobile2. In the origin and mobile I have apache servers
running... those are my caches!!! When I write localhost, I want to redirect
to the apache link

example:
I receive GET for http://[6001::101]/Big/big1.avi and I want to rewrite it
like http://[5001::52]/Big/big1.avi, that is the link to the apache in the
same machine where Squid is installed. This is not working. But if I
redirect to another machine http://[4001::52]/Big/big1.aviwith apache it
works.

OK?

*[rewriter_code]*
#!/usr/bin/perl

use warnings;
use strict;
use Fcntl ':flock';

require '/home/alberto/NodeConfig.pm'; #
dir/.../NodeConfig.pm
my $dirDB = ($NodeConfig::dir_DB); #
directory local database
my $db_name = ($NodeConfig::name_DB); # name of
local database
my $node_address = ($NodeConfig::node_address); # MAR's
address
my $DM_address = ($NodeConfig::DM_address); # DM's
address
my $dir_apache = ($NodeConfig::dir_Apache); #
directory of contents (Apache server)
my $dir_DM = ($NodeConfig::dir_DM); #
directory where there is the DM_req.pl in DM
my $rootpwd = ($NodeConfig::root_pwd); # password
for root access (to send the request to DM)

$|=1;

#-------------------------------------------------------------------------------------------------------------
#------------------------ PARAMETERS (modifying only ip address oCDN)
----------------------------------------

while (<>) {

                          my @params_http = split;
# parameters of http request
           my $url = $params_http[0]; # url of
http request
           my $ip_client = $params_http[1]; # ip client oh http
request

                          my $absTime = time();
# absolute time in seconds

                          my $db_name = ($NodeConfig::name_DB);
                          my $node_address = ($NodeConfig::node_address);
                          my @copie;

#----------------------------- REWRITE URL SQUID FUNCTION
----------------------------------------------------
# Check if there is the content inside he cache:
                      # if YES --> Go directly to MAR's cache
                      # if NO --> Forward the request to DM and wait the
best cache or Origin path

           open(LIST1, "< $dirDB"."$db_name"); # open local database for
READ
           flock ( LIST1, LOCK_SH );
           my @copieS=<LIST1>;
           flock ( LIST, LOCK_UN );
           close(LIST1);
           my $c;
           for $ind(0..$#copieS) {
                      my @values = split(';', $copieS[$ind]);
                      my $original = $values[0];
                      my $copy = $values[1];
                      my $iT1 = $values[2];

                      # seeking in the datbase if the content is in the
cache
                      if (($url eq $original)and($iT1 eq "Y")) {
                                                                                       
my @val1 = split('/', $url);
                                 if (-e
"$dir_apache"."$val1[3]"."/"."$val1[4]") {
                                                                                       
my $newURL = "$val1[0]//$node_address/$val1[3]/$val1[4]";

                                                                print "$newURL\n";
                                                                #print "302:"."$newURL\n";
                                                                exit;
                                 }
                      }
                          }
                        # request to DM for best position of content (Origin or others MARs)
                        my $req = request($DM_address,$dir_DM,$url,$node_address);

                        print "$req\n";
}

#--------------------------------------- END rewriteurl.pl
---------------------------------------------------

#------------------------------------ Soubroutine to Forward the request to
DM -------------------------------

# subroutine to send the request for best position to DM (ssh call)
sub request {

           my $DM_address = $_[0];
           my $dir_DM = $_[1];
           my $url = $_[2];
           my $node_address = $_[3];

           my $length = length($DM_address);
           my $DM_addressSSH = substr($DM_address,1,$length-2);
           my $req_DM = "sshpass -p '$rootpwd' ssh -o
StrictHostKeyChecking=no root@"."$DM_addressSSH"." \'cd $dir_DM && ".'perl
'."$dir_DM".'DM_req.pl'." $url $node_address\'";
           $req_DM = `$req_DM`;

           return $req_DM;

--
View this message in context: http://squid-web-proxy-cache.1019090.n4.nabble.com/Squid-3-2-2-localhost-tp4657098p4657103.html
Sent from the Squid - Users mailing list archive at Nabble.com.