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