Mercurial > pidgin
changeset 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 | 89c19002e73d |
| children | 73be09912842 |
| files | ChangeLog Makefile.am doc/CREDITS gaim2blt.pl |
| diffstat | 4 files changed, 33 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog Thu Apr 05 01:04:10 2001 +0000 +++ b/ChangeLog Thu Apr 05 02:40:23 2001 +0000 @@ -6,6 +6,7 @@ * Uh... Oscar works? For now? * IRC Plugin can do whois (right click and info) * IRC Plugin got away message support + * Gaim blist to WinAIM blt perl script (courtesy Andy Harrison) version 0.11.0-pre9 (03/26/2001): * Can register Jabber accounts (load the Jabber plugin and click
--- a/Makefile.am Thu Apr 05 01:04:10 2001 +0000 +++ b/Makefile.am Thu Apr 05 02:40:23 2001 +0000 @@ -1,6 +1,6 @@ EXTRA_DIST = gaim.spec.in gaim_applet.gnorba gaim.desktop gaim_applet.desktop \ - README.plugins HACKING STATUS + README.plugins HACKING STATUS gaim2blt.pl if GNOMEAPPLET
--- a/doc/CREDITS Thu Apr 05 01:04:10 2001 +0000 +++ b/doc/CREDITS Thu Apr 05 02:40:23 2001 +0000 @@ -37,7 +37,7 @@ Ari Pollak <IM: Ari Pollak> compwiz.dhs.org Resize conversation window patch Decklin Foster - Info box looks nicer + Many GUI improvements, other nifty additions and fixes David <IM: CrazyDavy> The neato-bigger text box S D Erle
--- /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"; +}