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 <[e-mail]>

--- 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;
 }