1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
#!/usr/bin/perl -w
# licq2gaim.pl
#
# Arturo Cisneros, Jr <acjr@hal-pc.org>
# 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);
}
|
