Mercurial > pidgin
view licq2gaim.pl @ 7819:2226c01893d6
[gaim-migrate @ 8471]
Take this, Luke!
Also, shx, Felipe, guy, if you're listening:
The top half of gaim_mime_decode_field() in util.c does things it
shouldn't. You should not cast a const char * to a char *.
Somewhere in that block the value of new changes, which is bad.
It causes the following backtrace:
#3 0x003fc9af in free_check () from /lib/tls/libc.so.6
#4 0x003f9fa5 in free () from /lib/tls/libc.so.6
#5 0x006aba64 in g_free () from /usr/lib/libglib-2.0.so.0
#6 0x0021da94 in email_msg (servconn=0x94df488, msg=0x95a1910)
at notification.c:2083
#7 0x0021ebfd in process_message (servconn=0x94df488, msg=0x95a1910)
at servconn.c:49
#8 0x0021ef6e in process_multi_line (servconn=0x94df488,
buffer=0x95a4fd0 "MIME-Version: 1.0\r\nContent-Type: text/x-msmsgsemailnotification; charset=UTF-8\r\n\r\nFrom: Mark Doliner\r\nMessage-URL: /cgi-bin/getmsg?msg=MSG1070938998.38&start=7318&len=972&curmbox=ACTIVE\r\nPost-URL: htt"...)
at servconn.c:165
#9 0x002201c5 in msn_servconn_parse_data (data=0x94df488, source=5,
cond=GAIM_INPUT_READ) at servconn.c:602
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Tue, 09 Dec 2003 03:07:29 +0000 |
parents | e967c0d93930 |
children |
line wrap: on
line source
#!/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); }