-
Notifications
You must be signed in to change notification settings - Fork 8
/
ircproxy.pl
89 lines (75 loc) · 2.18 KB
/
ircproxy.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
use strict;
use warnings;
use Socket;
use Getopt::Long;
use POE qw(Component::IRC Component::IRC::Plugin::Proxy);
my $nick;
my $user;
my $server;
my $port;
my $ircname;
my $bindaddr;
my $bindport;
my $password;
GetOptions(
"address=s" => \$bindaddr,
"bindport=s" => \$bindport,
"password=s" => \$password,
"nick=s" => \$nick,
"server=s" => \$server,
"user=s" => \$user,
"port=s" => \$port,
"ircname=s" => \$ircname,
);
die "Please specify a nickname and a servername\n" unless ( $nick and $server );
my $poco = POE::Component::IRC->spawn(Nick => $nick, Server => $server, Port => $port, Ircname => $ircname, Username => $user);
POE::Session->create(
package_states => [
'main' => [ qw(_start _default irc_proxy_service irc_proxy_authed irc_proxy_close) ],
],
heap => { irc => $poco },
options => { trace => 0 },
);
$poe_kernel->run();
exit 0;
sub _start {
my ($kernel,$heap) = @_[KERNEL,HEAP];
my $irc = $heap->{irc};
$irc->yield( register => 'all' );
$heap->{proxy} = POE::Component::IRC::Plugin::Proxy->new( bindaddress => $bindaddr, bindport => $bindport, password => $password );
$irc->plugin_add( 'Proxy' => $heap->{proxy} );
$irc->yield( connect => { } );
undef;
}
sub _default {
my ($event) = $_[ARG0];
my (@args) = @{ $_[ARG1] };
my (@output) = ( "$event: " );
foreach my $arg ( @args ) {
if ( ref($arg) eq 'ARRAY' ) {
push( @output, "[" . join(" ,", @$arg ) . "]" );
} else {
push ( @output, "'$arg'" );
}
}
print STDOUT join(', ', @output, "\n" );
undef;
}
sub irc_proxy_service {
my ($kernel,$heap,$mysockaddr) = @_[KERNEL,HEAP,ARG0];
my ($port, $myaddr) = sockaddr_in($mysockaddr);
printf "Connect to %s [%s]:[%s]\n",
scalar gethostbyaddr($myaddr, AF_INET),
inet_ntoa($myaddr), $port;
undef;
}
sub irc_proxy_authed {
my ($kernel,$heap) = @_[KERNEL,HEAP];
$heap->{irc}->yield( ctcp => $_ => 'ACTION has attached' ) for $heap->{proxy}->current_channels();
undef;
}
sub irc_proxy_close {
my ($kernel,$heap) = @_[KERNEL,HEAP];
$heap->{irc}->yield( ctcp => $_ => 'ACTION has detached' ) for $heap->{proxy}->current_channels();
undef;
}