Mercurial > pidgin.yaz
view gaim2blt.pl @ 10470:eaa9552a5e0f
[gaim-migrate @ 11752]
Fix sf patch #1094564, from Evan Schoenberg
Basically our ft API allows the filename to be NULL, but there are
times when we attempt to print the filename and don't check if it's
NULL first. This apparently sometimes causes crashes (on win32, OSX,
Solaris, and I guess any other OS that doesn't let you printf("%s", NULL);
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Tue, 04 Jan 2005 01:58:36 +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