Changeset - 853f2417ae5a
[Not reviewed]
default
0 1 0
Tyler Durden (virii) - 11 years ago 2014-01-22 20:11:02
virii@c3l.lu
Bridge recognition fixxed
1 file changed with 5 insertions and 2 deletions:
0 comments (0 inline, 0 general)
Scripts/update_server.pl
Show inline comments
 
@@ -31,7 +31,7 @@ for (1..scalar @configs) {
 
        while (<config>) {
 
            $server_name = $1       if /^Nickname (\w+)/i;
 
            $server_type = 'Exit'   if /^ExitPolicy accept \*:\*/i;
 
            $server_type = 'Relay'  if /^ExitPolicy reject \*:\*/i;
 
            $server_type = 'Relay'  if /^ExitPolicy reject \*:\*/i and $server_type ne 'Bridge';
 
            $server_type = 'Bridge' if /^BridgeRelay 1/i;
 
            $data_dir    = $1       if /^DataDirectory (.*)/i;
 
            $pidfile     = $1       if /^PidFile (.*)/i;
 
@@ -40,7 +40,8 @@ for (1..scalar @configs) {
 
        }
 
    close config;
 
######## [obfs check] ########  
 
    $obfs = 'False' if ($obfs ne "True" and $server_type == 'Bridge');
 
    $obfs = 'False' if $obfs ne 'True' and $server_type eq 'Bridge';
 
print $obfs . "\n";
 
######## [ip check] ########    
 
    if ($ip == "") {
 
        $socket = new IO::Socket::INET ( PeerAddr => "google.com",
 
@@ -93,3 +94,5 @@ print $request->{content};
 
######## [end of loop] ########
 
}
 

	
 

	
 

	
0 comments (0 inline, 0 general)