Skip to content

Instantly share code, notes, and snippets.

@wodim

wodim/pingpong.pl

Last active October 4, 2015 23:48
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save wodim/2718787 to your computer and use it in GitHub Desktop.
Save wodim/2718787 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
pingpong.pl
sub event_ping {
my ($server, $ping) = @_;
if ($ping =~ m/^:?[a-zA-Z0-9\[\]]{32}$/) {
Irssi::print "Recibido PING cifrado, enviando PONG acorde :-)";
my $pong = "PONG :".descifrar($ping, $private_key);
$server->send_raw($pong);
Irssi::signal_stop();
}
}
Irssi::signal_add("event ping", "event_ping")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment