Mercurial > pidgin
view gaim2blt.pl @ 10253:949b7986f42c
[gaim-migrate @ 11393]
Ok, this fixes up the m4 macro to what I think we want.
I removed the thread checks, we never use its pthread support.
Removed the /proc checks, so method #2 can actually work. Someone
might want to check that it does work on a /procless or nonlinux system.
So basicly binreloc is always enabled unless you disable it with a
configure option, OR unless you set stuff like libdir (again, via
configure) to something different than the others, such that
deprefixification doesn't make sense (i.e. you're not installing stuff
in its standard location within a prefix).
committer: Tailor Script <tailor@pidgin.im>
author | Tim Ringenbach <marv@pidgin.im> |
---|---|
date | Tue, 23 Nov 2004 23:46:13 +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