view licq2gaim.pl @ 5431:49f857d4b754

[gaim-migrate @ 5811] Tim Mooney (enchanter) writes: "In src/protocols/jabber/jabber.c, in the function `jabber_xfer_read', sscanf is called like such: sscanf(lenstr, "Content-Length: %d", &size); The problem is that `size' is of type `size_t', which is always the largest integral type size supported on your platform. That means on 32 bit platforms, it's either a long or an int (they're the same, 32 bits wide), and using %d as the format is ok. On 64 bit platforms, size_t will be a long, so using %d isn't sufficient. Since size_t is always as big as a `long' on every platform, even 32 bit platforms, there should be no problem switching the format to %ld. That will fix the problem for 64 bit platforms, and shouldn't cause any change on 32 bit platforms. Patch is attached. The problem was detected and warned about by the vendor compiler on the 64 bit platform I'm using, Tru64 UNIX." since it still compiles here, i'm putting this in 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);
}