Changeset 2042

Show
Ignore:
Timestamp:
10/16/06 15:52:44
Author:
miyagawa
Message:

update

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/hatenagraph.pl

    r2041 r2042  
    6969    pod2usage(0) if $args{help}; 
    7070 
    71     setup_config(); 
    72  
    7371    my %commands = ( 
    7472        update => \&update_graphs, 
     
    7876 
    7977    my $command = shift @ARGV || ($changed ? 'null' : 'update'); 
     78    setup_config() unless $command eq 'setup'; 
     79 
    8080    $commands{$command} or pod2usage(-message => "Unknown command: $command", -exitval => 2); 
    8181    $commands{$command}->(); 
     
    113113        }); 
    114114        warn $res->content unless $res->code == 201; 
     115        warn "Data posted.\n"  if $res->code == 201; 
    115116    } 
    116117}