view plugins/gaim.pl @ 6630:889279abb909

[gaim-migrate @ 7154] I thought about the problem with the yahoo profile languages. I haven't yet a solution, which solves the whole problem. But I think, I have a good idea, how to deal with non-English profiles in the meantime before this solution comes. non-English profiles are empty white pages in the moment (without my patch). The original patch already shows a link and a message for adult profiles. My patch makes the same for non-English languages. How it works: - at first it checks, if the page is in English (it looks for the words "Last Updated:", I think this is good, because every English profile has these words) - if the page is not in English, it finds the profile name in the title (which is always English) - it prints a message and a link which points to the profile page of the user Luke, can you please look at the patch and especially to my comments and messages. Please correct my English, if something doesn't sound good. I think, the patch can be included in gaim-0.68. It should not have any side effects." at very least it has fewwer side effects. committer: Tailor Script <[e-mail]>

sub description {
        my($a, $b, $c, $d, $e, $f) = @_;
        ("Example", "1.0", "An example Gaim perl script that does nothing particularly useful:\n\t-Show a dialog on load\n\t-Set user idle for 6,000 seconds\n\t-Greets people signing on with \"Hello\"\n\t-Informs you when script has been loaded for one minute.", "Eric Warmenhoven <eric\@warmenhoven.org>", "http://gaim.sf.net", "/dev/null");
}

$handle = GAIM::register("Example", "1.0", "goodbye", "");

GAIM::print("Perl Says", "Handle $handle");
		
$ver = GAIM::get_info(0);
@ids = GAIM::get_info(1);

$msg = "Gaim $ver:";
foreach $id (@ids) {
	$pro = GAIM::get_info(7, $id);
	$nam = GAIM::get_info(3, $id);
	$msg .= "\n$nam using $pro";
}


GAIM::command("idle", 6000);

GAIM::add_event_handler($handle, "event_buddy_signon", "echo_reply");
GAIM::add_timeout_handler($handle, 60, "notify");

sub echo_reply {
	$index = $_[0];
	$who = $_[1];
	GAIM::print_to_conv($index, $who, "Hello", 0);
}

sub notify {
	GAIM::print("1 minute", "gaim test has been loaded for 1 minute");
}

sub goodbye {
	GAIM::print("You Bastard!", "You killed Kenny!");
}