Changeset 6da7e2a in lab.git for twitter/show_status.pl

Timestamp:

Oct 2, 2010 10:02:23 PM (14 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

b4d59be

Parents:

439448c

Message:

• show_status doesn't need login

git-svn-id: ​https://lab.mitty.jp/svn/lab/trunk@57 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

File:

• twitter/show_status.pl (modified) (2 diffs)

twitter/show_status.pl

@@ -11 +11 @@
 ## from http://search.cpan.org/perldoc?Net::Twitter::Lite#ERROR_HANDLING
 use Net::Twitter::Lite;
-use FindBin qw($Bin);
-use YAML::Tiny;
+use Data::Dumper;
 
-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";
-}
-
+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; }
@@ -51 +40 @@
 
 
-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