From 9b33dc8a0a9429bde8e343766fd70fa4181370c2 Mon Sep 17 00:00:00 2001
From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Sat, 2 Oct 2010 13:02:23 +0000
Subject: [PATCH]  * show_status doesn't need login

git-svn-id: https://lab.mitty.jp/svn/lab/trunk/twitter@57 7d2118f6-f56c-43e7-95a2-4bb3031d96e7
---
 show_status.pl |   49 ++-----------------------------------------------
 1 file changed, 2 insertions(+), 47 deletions(-)

diff --git a/show_status.pl b/show_status.pl
index 59658cb..c0de205 100755
--- a/show_status.pl
+++ b/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
     
-- 
1.7.9.5