Mercurial > pidgin
diff gaim2blt.pl @ 1685:e8e190793fe3
[gaim-migrate @ 1695]
mm. fun stuff
committer: Tailor Script <tailor@pidgin.im>
author | Eric Warmenhoven <eric@warmenhoven.org> |
---|---|
date | Thu, 05 Apr 2001 02:40:23 +0000 |
parents | |
children | 73be09912842 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/gaim2blt.pl Thu Apr 05 02:40:23 2001 +0000 @@ -0,0 +1,30 @@ +#!/usr/bin/perl + +## gaim buddy list to aim blt format converter + +if ($ARGV[0] && $ARGV[1]) { + open (FILE,$ARGV[0]); + print "Config {\n version 1\n}\nUser {\n screename $ARGV[1]\n}\nBuddy {\n list {\n "; + foreach $line (<FILE>) { + chomp ($line); + $line =~ s/^ +//; ## strip any preceding spaces + next unless $line =~ /^[bg]/; ## Ignore everything but the b and g lines + @buddy = split(//,$line); ## strip off the first 2 chars of the line. + shift @buddy; ## crappy way to do it, but I didn't want to + shift @buddy; ## mess up screen names with spaces in them. + foreach $char (@buddy) { + $buddy .= $char; + } + @screenname = split(/:/,$buddy); ## split off the aliases + + if ($line =~ /^g/) { + print " }\n $screenname[0] {\n"; + } elsif ($line =~ /^b/) { + print " $screenname[0]\n"; + } + $buddy = undef; + } + print " }\n"; +} else { + print "\n\n\n\tExample:\n\n\t\tgaim2blt.pl gaim.buddy.file YourScreenName\n\n\n\n"; +}