view licq2gaim.pl @ 6096:94e4cf59bacb

[gaim-migrate @ 6555] (21:55:33) Robot101: LSchiere2: while you're round, fancy renaming a file? StdAfx.h in src/win32/ to stdafx.h. (21:55:50) LSchiere2: Robot101: is there a reason? (21:55:57) Robot101: LSchiere2: yeah, try and put a vitriolic comment about windows and/or herman and his build system into the CVS message. (21:56:14) ***LSchiere2 listens for the why (21:56:33) Robot101: because it gets included as "stdafx.h" (21:56:38) LSchiere2: that's a good reason (21:56:53) SimGuy: windows filesystems and their not-caring-ness (21:57:03) Robot101: so gcc on Linux doesn't find it. just because you're building on a retarded platform doesn't mean you have to be all retarded about it. (21:57:14) Robot101: (yeah, use that as the commit message) (21:57:31) LSchiere2: how many places is it included? ie would it be easier to just change the include? (21:58:00) Robot101: we want to discourage this camelcaps as much as possible, so let's just embrace the fact he included it as lowercase. (21:58:13) ***LSchiere2 detects evasion (21:58:26) LSchiere2: you do realize do you not that cvs does NOT handle renaming a file well at all (21:58:37) Robot101: detect someone who is on a windows laptop ssh'd to a machine which doesn't have a gaim tree on (21:58:50) Robot101: the file isn't ours (21:58:55) Robot101: it's just ripped from some other project (21:58:58) zx64: mv File file; cvs remove File; cvs add file; cvs ci; done (21:59:00) Robot101: we havn't changed it much.any (21:59:04) RUBotzman left the room ("Bye all"). (21:59:11) LSchiere2: yes i'm aware of the steps involved zx64 (21:59:12) Robot101: *much/any 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);
}