Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

added user option.

  • Loading branch information...
commit 1a4ff60cc180e8870cff183bc538268dc7de9811 1 parent e7c5b2c
Kuzuha SHINODA kuzuha authored
Showing with 4 additions and 2 deletions.
  1. +4 −2 bin/ikachan
6 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) = @_;
Please sign in to comment.
Something went wrong with that request. Please try again.