Update of /cvsroot/gaim/gaim
In directory usw-pr-cvs1:/tmp/cvs-serv2000
Modified Files:
ChangeLog Makefile.am TODO
Added Files:
licq2gaim.pl
Log Message:
thanks Arturo Cisneros, Jr.
--- NEW FILE: licq2gaim.pl ---
#!/usr/bin/perl -w
# licq2gaim.pl
#
# Arturo Cisneros, Jr <ac...@ha...>
# 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);
}
Index: ChangeLog
===================================================================
RCS file: /cvsroot/gaim/gaim/ChangeLog,v
retrieving revision 1.360
retrieving revision 1.361
diff -u -d -r1.360 -r1.361
--- ChangeLog 2001/11/26 21:55:53 1.360
+++ ChangeLog 2001/11/27 20:54:17 1.361
@@ -8,6 +8,8 @@
resized ICQ icons)
* Updated Dutch translation (thanks Floris Eshuis)
* Option to show aliases in conversation tabs
+ * Option to hide windows after sending messages
+ * licq2gaim.pl conversion script (thanks Arturo Cisneros, Jr.)
version 0.48 (11/18/2001):
* Right-click on links to open/copy URL
Index: Makefile.am
===================================================================
RCS file: /cvsroot/gaim/gaim/Makefile.am,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- Makefile.am 2001/10/09 23:40:18 1.29
+++ Makefile.am 2001/11/27 20:54:17 1.30
@@ -1,6 +1,6 @@
EXTRA_DIST = gaim.spec.in gaim_applet.gnorba gaim.desktop gaim_applet.desktop \
- HACKING STATUS gaim2blt.pl
+ HACKING STATUS gaim2blt.pl licq2gaim.pl
if DISTRIB
Index: TODO
===================================================================
RCS file: /cvsroot/gaim/gaim/TODO,v
retrieving revision 1.126
retrieving revision 1.127
diff -u -d -r1.126 -r1.127
--- TODO 2001/11/15 22:47:02 1.126
+++ TODO 2001/11/27 20:54:17 1.127
@@ -25,6 +25,8 @@
*cough*GTK*cough* that they don't.
Need to write the core side of the core-ui protocol
+ Non-blocking gethostbyname()
+ Cancelable proxy_connect
----
THE PROTOCOLS:
|
