Changeset 27094 for lang/perl/PiPiSan

Show
Ignore:
Timestamp:
12/20/08 00:41:40 (6 years ago)
Author:
hirose31
Message:

keyもれちゃってた

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/PiPiSan/branches/harapeco/command-bot.pl

    r27087 r27094  
    2020use Getopt::Long; 
    2121use FindBin; 
     22#use Smart::Comments; 
    2223 
    2324if ($0 =~ /debug/) { 
     
    3233 
    3334pod2usage(-verbose=>1) unless $config_file; 
     35pod2usage(-verbose=>1) unless @ARGV; 
     36 
    3437### $config_file 
    3538my $config = YAML::LoadFile($config_file); 
     
    4245   ); 
    4346 
    44 pod2usage(-verbose=>1) unless @ARGV; 
    4547### @ARGV 
    4648if ($ARGV[0] eq "lunch") { 
    4749    for my $ch (@{ $config->{irc}{channels} }) { 
     50        $ch =~ s/\s+.*$//; 
    4851        ### $ch 
    4952        $client->post( 'IRC/lunch' => [ $ch ] ); 
     
    6063=head1 SYNOPSIS 
    6164 
    62 B<command-bot.pl> B<COMMAND> 
     65B<command-bot.pl> -c config.yaml B<COMMAND> 
    6366 
    6467  COMMAND = lunch, reload