Permalink
Browse files

Merge pull request #8 from kuzuha/feature/add_user_option

added user option.
  • Loading branch information...
2 parents e7c5b2c + 1a4ff60 commit ad91e4fb416e90e1d36beee32f738d95223b45b1 @yappo committed Jun 22, 2012
Showing with 4 additions and 2 deletions.
  1. +4 −2 bin/ikachan
View
@@ -21,8 +21,8 @@ my $parser = Getopt::Long::Parser->new(
);
my %options;
-my($http_host, $http_port, $irc_server, $irc_port, $irc_keyword, $irc_nickname, $no_post_with_join, $irc_post_interval, $irc_reconnect_interval) =
- ('127.0.0.1', 4979, undef, 6667, undef, 'ikachan', 0, 2, 3);
+my($http_host, $http_port, $irc_server, $irc_port, $irc_keyword, $irc_nickname, $irc_user, $no_post_with_join, $irc_post_interval, $irc_reconnect_interval) =
+ ('127.0.0.1', 4979, undef, 6667, undef, 'ikachan', undef, 0, 2, 3);
my @reverse_proxy;
$parser->getoptions(
'o|host=s' => \$http_host,
@@ -32,6 +32,7 @@ $parser->getoptions(
'P|Port=i' => \$irc_port,
'K|Keyword=s' => \$irc_keyword,
'N|Nickname=s' => \$irc_nickname,
+ 'U|User=s' => \$irc_user,
'i|interval=s' => \$irc_post_interval,
'R|reconnect-interval=s' => \$irc_reconnect_interval,
'j|no-post-with-join' => \$no_post_with_join,
@@ -54,6 +55,7 @@ my $create_session; $create_session = sub {
port => $irc_port,
password => $irc_keyword,
nickname => $irc_nickname,
+ user => $irc_user,
interval => $irc_post_interval,
on_connect => sub {
my ($con, $err) = @_;

0 comments on commit ad91e4f

Please sign in to comment.