Mercurial > pidgin.yaz
view gaim2blt.pl @ 5164:98d16e2d1bf9
[gaim-migrate @ 5528]
This should fix a memleak when hitting cancel on the file selection dialog
when sending a file, or trying to send a file that doesn't exist, or a
file of size 0, or one that you don't have permission to access.
I'm sure Christian has some kind of cool master plan for what to do here,
since he's all about cool master plans, but this should at least fix a lil'
memleak until he has time to get his implement on.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Fri, 18 Apr 2003 06:49:49 +0000 |
parents | 66bf7ecefedd |
children |
line wrap: on
line source
#!/usr/bin/perl -w # Original by Andy Harrison, # Rewrite by Decklin Foster, # Available under the GPL. package Gaim2Blt; use strict; use Getopt::Std; use vars qw(%opts $in_group); getopts('s:', \%opts); die "usage: $0 -s 'screen name' gaim.buddy\n" unless $opts{s}; print <<"EOF"; Config { version 1 } User { screenname "$opts{s}" } Buddy { list { EOF while (<>) { chomp; my ($type, $args) = split ' ', $_, 2; next unless $type; if ($type eq 'g') { print " }\n" if ($in_group); print qq( "$args" {\n); $in_group = 1; } elsif ($type eq 'b') { my ($buddy, $alias) = split /:/, $args; print qq( "$buddy"\n); } } print <<"EOF"; } } } EOF