X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=twitter%2Fshow_status.pl;h=c0de205528dbfaa9f184b73484ebc1f760ba74f4;hb=7e20eed62f390a5e39bcd48accd0e4023c0f8328;hp=59658cbef39ddfd493a93c26be7944ec98eefe80;hpb=035465bb947e40f543c1af710a427e0671ee5a41;p=lab.git

diff --git a/twitter/show_status.pl b/twitter/show_status.pl
index 59658cb..c0de205 100755
--- a/twitter/show_status.pl
+++ b/twitter/show_status.pl
@@ -10,24 +10,13 @@ use utf8;
 # You can catch and process these exceptions by using eval blocks and testing $@
 ## from http://search.cpan.org/perldoc?Net::Twitter::Lite#ERROR_HANDLING
 use Net::Twitter::Lite;
-use FindBin qw($Bin);
-use YAML::Tiny;
-
-my $conf = loadconf("$Bin/config.yml");
-if (! defined $conf) {
-    die "$0: cannot parse config file.\n";
-}
-
-my $bot = login($conf);
-if (! $bot->authorized) {
-    die "$0: this client is not yet authorized.\n";
-}
+use Data::Dumper;
 
+my $bot = Net::Twitter::Lite->new;
 
 eval {
     foreach my $id (@ARGV) {
         my $res = $bot->show_status($id);
-        use Data::Dumper;
         foreach my $line (split /\n/, Dumper $res) {
             if ($line =~ /undef/) { next; }
             unless ($line =~ / => {/
@@ -50,40 +39,6 @@ if ($@) {
 print "done\n";
 
 
-sub loadconf {
-    # load configration data from yaml formatted file
-    #   param   => scalar string of filename
-    #   ret     => hash object of yaml data
-    
-    my $file = shift @_;
-    
-    my $yaml = YAML::Tiny->read($file);
-    
-    if ($!) {
-        warn "$0: '$file' $!\n";
-    }
-    
-    return $yaml->[0];
-}
-
-sub login {
-    # make Net::Twitter::Lite object and login
-    #   param   => hash object of configration
-    #   ret     => Net::Twitter::Lite object
-    
-    my $conf = shift @_;
-    
-    my $bot = Net::Twitter::Lite->new(
-        consumer_key    => $conf->{consumer_key},
-        consumer_secret => $conf->{consumer_secret},
-    );
-    
-    $bot->access_token($conf->{access_token});
-    $bot->access_token_secret($conf->{access_token_secret});
-    
-    return $bot;
-}
-
 sub evalrescue {
     # output error message at eval error