Changeset 34117

Show
Ignore:
Timestamp:
06/24/09 10:59:12 (5 years ago)
Author:
omoon
Message:

id,passはyamlファイルから読み込む。

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/misc/MyOA/tweet_feed.pl

    r34116 r34117  
    44 
    55use DBI; 
     6use YAML; 
     7use File::Basename; 
    68use LWP::UserAgent; 
    79 
    8 my $db_user = 'db_user'; 
    9 my $db_pass = 'db_pass'; 
     10my $config = YAML::LoadFile( dirname(__FILE__) . "/config.yml" ); 
    1011 
    11 my $twitter_user = 'user'; 
    12 my $twitter_pass = 'pass'; 
     12my $db_user = $config->{db_user}; 
     13my $db_pass = $config->{db_pass}; 
     14 
     15my $twitter_user = $config->{twitter_user}; 
     16my $twitter_pass = $config->{twitter_pass}; 
    1317 
    1418my $dbh =