view licq2gaim.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]>

#!/usr/bin/perl -w
# licq2gaim.pl
#
# Arturo Cisneros, Jr <[e-mail]>
# GPL'd

use strict;

my $DIR = "$ENV{HOME}/.licq";
my $GAIM = "$ENV{HOME}/.gaim";
my (@UINS, %USERS) = ();
my $OWNER = "";


get_uins();

foreach my $uin (@UINS) {
	$USERS{$uin} = get_alias($uin);
}

get_owner();
write_list();


sub get_uins {

	opendir(DIR, "$DIR/users") or die "Couldn't open dir $DIR/users/: $!";
	@UINS = grep !/^\./, readdir DIR;
	closedir(DIR);
}

sub get_owner {

	my @foo = ();

	open(FILE, "<$DIR/owner.uin") or die "Couldn't open file $DIR/owner.uin $!";
	while(<FILE>) {
		next unless /^Uin/;
		@foo = split;
		last;
	}
	close(FILE);

	$OWNER = $foo[2];
}

sub get_alias {

	my @foo = ();

	open(FILE, "<$DIR/users/$_[0]") or die "Couldn't open $DIR/users/$_[0]: $!";
	while(<FILE>) {
		next unless /^Alias/;
		@foo = split / /, $_, 3;
		last;
	}
	close(FILE);

	return $foo[2];
}

sub write_list {

	# Backup Original
	if( -e "$GAIM/$OWNER.3.blist") {
		rename("$GAIM/$OWNER.3.blist","$GAIM/$OWNER.3.bak");
	}

	# Write new file
	open(FILE, ">$GAIM/$OWNER.3.blist") or die "Couldn't open file for writing: $!";
	print FILE "m 1\n";
	print FILE "g ICQBuddies\n";
	while(my($key, $value) = each %USERS) {
		$key =~ s/\.uin$//;
		print FILE "b $key:$value";
	}
	close(FILE);
}