view licq2gaim.pl @ 8957:97a1f314b051

[gaim-migrate @ 9731] (2004-05-16 16:56:38) lschiere2: anyone have any thoughts on https://sourceforge.net/tracker/?func=detail&atid=300235&aid=951479&group_id=235 (2004-05-16 17:07:14) TimRingenbach: my thoughts are "i should make middle click open links" (2004-05-16 17:08:58) lschiere2: lol yes (2004-05-16 17:09:03) lschiere2: that would be cool ;-) (2004-05-16 17:11:19) TimRingenbach: it should be easy enough to do, if you really want me to. i always middle click because i'm used to for opening new tabs in mozilla (2004-05-16 17:12:08) lschiere2: *nods* i'm using galeon, not mozilla, but otherwise yes, i'm constantly middle clicking This does that. It makes middle clicking a link work exactly like left clicking one. There's only one problem, the mouse gesters plugin will steal the middle clicks and so it won't work if that plugin is loaded. 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);
}