Changeset 27094 for lang/perl/PiPiSan

Timestamp:

12/20/08 00:41:40 (4 years ago)

Author:

hirose31

Message:

keyもれちゃってた

Files:

• lang/perl/PiPiSan/branches/harapeco/command-bot.pl (modified) (4 diffs)

lang/perl/PiPiSan/branches/harapeco/command-bot.pl

@@ -20 +20 @@
 use Getopt::Long;
 use FindBin;
+#use Smart::Comments;
 
 if ($0 =~ /debug/) {
@@ -32 +33 @@
 
 pod2usage(-verbose=>1) unless $config_file;
+pod2usage(-verbose=>1) unless @ARGV;
+
 ### $config_file
 my $config = YAML::LoadFile($config_file);
@@ -42 +45 @@
    );
 
-pod2usage(-verbose=>1) unless @ARGV;
 ### @ARGV
 if ($ARGV[0] eq "lunch") {
     for my $ch (@{ $config->{irc}{channels} }) {
+        $ch =~ s/\s+.*$//;
         ### $ch
         $client->post( 'IRC/lunch' => [ $ch ] );
@@ -60 +63 @@
 =head1 SYNOPSIS
 
-B<command-bot.pl> B<COMMAND>
+B<command-bot.pl> -c config.yaml B<COMMAND>
 
   COMMAND = lunch, reload