in reply to execute JS in http response in perl
You just need to read the javascript, understand it and do similar things yourself.$ssid=$1 if $bot->content =~ m/name="ssid" value="([^"]+)"/; $bot->post($posturl,{ act => 2, reason => "spambot", ever => 1, a => $ +a, s => $s, t => $t, ssid => $ssid}); <...> ($key) = ($bot->content =~ /'(-8-0-[a-zA-Z0-9]+)'/) <...> $bot->content =~ /display='none'/ ? print " Removed\n" : warn "Failed +to remove the message, remove url $victim\n";
|
|---|