PROXY  WHOIS  RQUOTE  TEXTS  SOFT  FOREX  BBOARD
 Music  Philosophy  Code  Literature  Russian

= ROOT|Technical|Code_Examples|Perl|Proxy|HoTTProxy|HoTTProxy.pl =

page 7 of 12



                  # Do nothing
                  # print STDERR 
"$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$coo
kie{'domain'}}{$cookieID}{$i} ne $cookie{$i}\n";
                 }
                }
               }
              }
 
            
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID} = {%cookie};
            # print STDERR "New: " . 
keys(%{$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}
}{$cookie{'domain'}}{$cookieID}}) . "\n\n";
            # print STDERR "New: \n";
            # print STDERR "      Name: 
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'name'}\n";
            # print STDERR "     Value: 
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'value'}\n";
            # print STDERR "    Domain: 
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'domain'}\n";
            # print STDERR "      Path: 
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'path'}\n";
            # print STDERR "   Expires: 
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'expires'}\n";
            # print STDERR "    Secure: 
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$cook
ie{'domain'}}{$cookieID}{'secure'}\n";
            # print STDERR "\n";
            
             }
             delete $$headers{$i}; # Don't send these cookies to the browser
          }
       }
    
       # Now we need to save all the cookie bags
       foreach $i 
(keys(%{$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'
}}})) {
        # print STDERR "\$i is $i\n";
        if 
($$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$i}{
':=Updated=:'}) {
         say ("\nNeed to update cookie bag 
$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}\@$i.cookies\n\n",5);
           if (open (my $fileHandle, 
">$HoTTProxyConfig{'CookieDirectory'}/$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}\@$i.cookies"))
 {
            say ("   Overwriting cookie bag 
$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}\@$i.cookies... ",5);
            foreach $j 
(keys(%{$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'
}}{$i}})) {
             if ($j ne ':=Updated=:') {  # :=Updated=: is a marker entry so we act on all but that 
key
              print $fileHandle 
assembleCookie($$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Reques
t-User'}}{$i}{$j}) . "\n";
              # say ("   Saved cookie $j\n",5);
             }
            }
            close $fileHandle;
            say ("Done.\n\n",5);
           } else {
            print STDERR sortableDate() . " Failed to open cookie bag 
$HoTTProxyConfig{'CookieDirectory'}/$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}\@$i.cookies for 
output. Error: $!.\n";
           }
           # Need to delete these cookie bags as we finish since they persist forever (until the 
proxy server ends)
           delete 
$$self{'_hphf_proxy'}{'HoTTProxy-Cookie-Jar'}{$$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}}{$i};
           # print STDERR "Removed cookie bag $i from memory.\n";
          } else {
           say ("   Cookie bag $$self{'_hphf_proxy'}{'HoTTProxy-Request-User'}\@$i.cookies is 
unchanged.\n\n",5);
          }
       
       # print STDERR "$message\n";
     # foreach my $xxx (sort(keys(%{$message}))) {
     #  print STDERR "$xxx -> $$message{$xxx}\n";
     # }
     
     # print '-' x 79 . "\n\n";
 
 
       
       }
    }
   }
);

# Needed to make sure the bogus proxy:homepage requests run our RHF that handles 
# authentication and local domain redirects
=7=

1|2|3|4|5|6| < PREV = PAGE 7 = NEXT > |8|9|10|11|12

UP TO ROOT | UP TO DIR | TO FIRST PAGE

Google
 


E-mail Facebook Google Digg del.icio.us BlinkList Fark Furl Ma.gnolia Netscape NewsVine Reddit Slashdot Spurl StumbleUpon Technorati YahooMyWeb LiveJournal Blogmarks TwitThis Live News2.ru BobrDobr.ru Memori.ru MoeMesto.ru

0.00733304 wallclock secs ( 0.01 usr + 0.01 sys = 0.02 CPU)