Mercurial > pidgin
diff libpurple/plugins/perl/scripts/count_down.pl @ 15833:2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
| author | Daniel Atallah <daniel.atallah@gmail.com> |
|---|---|
| date | Mon, 19 Mar 2007 17:02:24 +0000 |
| parents | 5fe8042783c1 |
| children | 9b954de67cf3 |
line wrap: on
line diff
--- a/libpurple/plugins/perl/scripts/count_down.pl Mon Mar 19 17:01:28 2007 +0000 +++ b/libpurple/plugins/perl/scripts/count_down.pl Mon Mar 19 17:02:24 2007 +0000 @@ -1,4 +1,4 @@ -use Gaim; +use Purple; %PLUGIN_INFO = ( perl_api_version => 2, @@ -28,7 +28,7 @@ my $plugin = shift; # Retrieve all the accounts - @accounts = Gaim::Accounts::get_all(); + @accounts = Purple::Accounts::get_all(); print "NUM OF ACCS: " . $accounts . "\n"; # Search each account's user info for our tag @@ -68,7 +68,7 @@ my ($widget, $window) = @_; print "Called from sub hello!\n "; print "Test var: " . $GLOBAL_TEST_VAR . " \n"; - @accounts = Gaim::Accounts::get_all(); + @accounts = Purple::Accounts::get_all(); $acc = $accounts[0]; $user_info = $acc->get_user_info(); print "USER INFO from sub hello: " . $user_info . "\n";