- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
r6286f26 rb38b0b2 6 6 =head1 NAME 7 7 8 BarnOwl::Module:: IRC8 BarnOwl::Module::Jabber 9 9 10 10 =head1 DESCRIPTION 11 11 12 This module implements IRCsupport for barnowl.12 This module implements Jabber support for barnowl. 13 13 14 14 =cut … … 17 17 use BarnOwl::Hooks; 18 18 use BarnOwl::Message::IRC; 19 use BarnOwl::Module::IRC::Connection qw(is_private);19 use BarnOwl::Module::IRC::Connection; 20 20 21 21 use Net::IRC; 22 22 use Getopt::Long; 23 23 24 our $VERSION = 0.0 2;24 our $VERSION = 0.01; 25 25 26 26 our $irc; … … 30 30 31 31 sub startup { 32 BarnOwl::new_variable_string('irc:nick', {default => $ENV{USER}}); 33 BarnOwl::new_variable_string('irc:user', {default => $ENV{USER}}); 34 BarnOwl::new_variable_string('irc:name', {default => ""}); 35 BarnOwl::new_variable_bool('irc:spew', {default => 0}); 32 BarnOwl::new_variable_string(ircnick => {default => $ENV{USER}}); 33 BarnOwl::new_variable_string(ircuser => {default => $ENV{USER}}); 34 BarnOwl::new_variable_string(ircname => {default => ""}); 36 35 register_commands(); 37 36 register_handlers(); … … 41 40 sub shutdown { 42 41 for my $conn (values %ircnets) { 43 $conn->disconnect ();42 $conn->disconnect; 44 43 } 45 44 } … … 64 63 BarnOwl::new_command('irc-disconnect' => \&cmd_disconnect); 65 64 BarnOwl::new_command('irc-msg' => \&cmd_msg); 66 BarnOwl::new_command('irc-join' => \&cmd_join);67 BarnOwl::new_command('irc-nick' => \&cmd_nick);68 65 } 69 66 … … 79 76 my $cmd = shift; 80 77 81 my $nick = BarnOwl::getvar('irc :nick');82 my $username = BarnOwl::getvar('irc :user');83 my $ircname = BarnOwl::getvar('irc :name');78 my $nick = BarnOwl::getvar('ircnick'); 79 my $username = BarnOwl::getvar('ircuser'); 80 my $ircname = BarnOwl::getvar('ircname'); 84 81 my $host; 85 82 my $port; … … 93 90 "alias=s" => \$alias, 94 91 "ssl" => \$ssl, 95 "password=s" => \$password, 96 "port=i" => \$port, 97 ); 92 "password=s" => \$password); 98 93 $host = shift @ARGV or die("Usage: $cmd HOST\n"); 99 94 if(!$alias) { … … 131 126 my $conn = get_connection(\@_); 132 127 my $to = shift or die("Usage: $cmd NICK\n"); 133 # handle multiple recipients?134 128 if(@_) { 135 129 process_msg($conn, $to, join(" ", @_)); … … 154 148 body => $body, 155 149 sender => $conn->nick, 156 is_private($to) ? 157 (isprivate => 'true') : (channel => $to), 150 isprivate => 'true', 158 151 replycmd => "irc-msg $to", 159 replysendercmd => "irc-msg $to"152 replysendercmd => "irc-msg " . $conn->nick 160 153 ); 161 154 BarnOwl::queue_message($msg); 162 155 } 163 156 164 sub cmd_join {165 my $cmd = shift;166 my $conn = get_connection(\@_);167 my $chan = shift or die("Usage: $cmd channel\n");168 $conn->join($chan);169 }170 171 sub cmd_nick {172 my $cmd = shift;173 my $conn = get_connection(\@_);174 my $nick = shift or die("Usage: $cmd <new nick>");175 $conn->nick($nick);176 }177 157 178 158 ################################################################################ … … 197 177 198 178 sub get_connection_by_alias { 199 my $key = shift; 200 die("No such ircnet: $key\n") unless exists $ircnets{$key}; 179 die("No such ircnet: $alias\n") unless exists $ircnets{$key}; 201 180 return $ircnets{$key}; 202 181 }
Note: See TracChangeset
for help on using the changeset viewer.