Help for this page

Select Code to Download


  1. or download this
    use IO::Select;
use IO::Socket;
...
    $req =~ m/.*?\s+(.*?)\s/;
    my $page = $1;
        if (!defined($trusted_site->{$host})) {
  2. or download this
            my $dialog = $mw->DialogBox(-title => "Is $host trusted?", -bu
+ttons => ["Yes", "No"]);
        $dialog->geometry("600x100+0+0");
...
        } else {
            $trusted_site->{$host} = 0;
        }
  3. or download this
    }
    if (!$trusted_site->{$host} || is_banned_type($page)) {
...
        }
    }    
}