X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=twitter%2Fshow_status.pl;h=1c7607986773b7488bf9a5721e51ac9b56273c9a;hb=567a134d7d421d2c54b5fff0ed25d9a5514d2285;hp=887654a4a70272bf8b42735011bd5e3ad3ac4d76;hpb=4e0b0a1745557341454c79314947819b728f6e5e;p=lab.git

diff --git a/twitter/show_status.pl b/twitter/show_status.pl
index 887654a..1c76079 100755
--- a/twitter/show_status.pl
+++ b/twitter/show_status.pl
@@ -10,66 +10,34 @@ 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;
-        print Dumper $res;
+        foreach my $line (split /\n/, Dumper $res) {
+            if ($line =~ /undef/) { next; }
+            unless ($line =~ / => {/
+                ||  $line =~ / = /
+                ||  $line =~ /status/
+                ||  $line =~ /'text'/
+                ||  $line =~ /created/
+                ||  $line =~ /'id'/
+                ||  $line =~ /name/
+                ||  $line =~ / },/
+                ||  $line =~ / };/
+            ) { next; }
+            print $line, "\n";
+        }
     }
 };
 if ($@) {
     evalrescue($@);
 }
-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];
-}
+print "truncated output done\n";
 
-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