Mercurial > pidgin.yaz
diff plugins/perl/scripts/count_down.pl @ 12364:6fd82071a7b8
[gaim-migrate @ 14668]
sf patch #1373688, from Will Thompson
"Make the Perl bindings more Perl-ish"
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Mon, 05 Dec 2005 23:54:34 +0000 |
parents | 0e9e2b923d09 |
children |
line wrap: on
line diff
--- a/plugins/perl/scripts/count_down.pl Mon Dec 05 23:41:29 2005 +0000 +++ b/plugins/perl/scripts/count_down.pl Mon Dec 05 23:54:34 2005 +0000 @@ -34,7 +34,7 @@ # Search each account's user info for our tag foreach $acc (@accounts) { print "IN ACCOUNTS\n"; - $user_info = Gaim::Account::get_user_info($acc); + $user_info = $acc->get_user_info(); print "USER INFO 1: " . $user_info . "\n"; # Find <countdown> and replace $user_info =~ /countdown([0-9]+).([0-9]+).([0-9]+)/; @@ -42,7 +42,7 @@ $days = count_days($1, $2, $3); $user_info =~ s/countdown(\d\d\d\d).(\d\d).(\d\d)/$days/; print "USER INFO 2: " . $user_info . "\n"; - # Gaim::Account::set_user_info($acc, $user_info); + # $acc->set_user_info($user_info); } @@ -70,7 +70,7 @@ print "Test var: " . $GLOBAL_TEST_VAR . " \n"; @accounts = Gaim::Accounts::get_all(); $acc = $accounts[0]; - $user_info = Gaim::Account::get_user_info($acc); + $user_info = $acc->get_user_info(); print "USER INFO from sub hello: " . $user_info . "\n"; $window->destroy; }