annotate gaim2blt.pl @ 5842:dbed8c87f750

[gaim-migrate @ 6273] Another reason not to use CVS. This saves your buddy icons to the OSCAR servers (I hope). It's not fully tested and it may screw things up, but I wanted to get it in CVS so other people can try to break this, and KingAnt can review my work (that libfaim wizard that he is.) Don't use CVS. I'd like to thank Christian Hammond, for his work on the account and prpl APIs that made it so easy to add the hook into buddy icon changing. I'd like to thank Mark Doliner for laying most of the groundwork and for his kind words of encouragement. I'd like to thank myself for making the buddy icon selector real sexy-like. I'd like to thank the Lord almighty for giving me the strength to do this. I promised myself I wouldn't cry. I never imagined I'd be committing this. committer: Tailor Script <tailor@pidgin.im>
author Sean Egan <seanegan@gmail.com>
date Thu, 12 Jun 2003 22:19:07 +0000
parents 66bf7ecefedd
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1741
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
1 #!/usr/bin/perl -w
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
2 # Original by Andy Harrison,
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
3 # Rewrite by Decklin Foster,
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
4 # Available under the GPL.
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
5
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
6 package Gaim2Blt;
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
7 use strict;
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
8 use Getopt::Std;
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
9 use vars qw(%opts $in_group);
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
10
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
11 getopts('s:', \%opts);
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
12 die "usage: $0 -s 'screen name' gaim.buddy\n" unless $opts{s};
1685
e8e190793fe3 [gaim-migrate @ 1695]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
diff changeset
13
1741
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
14 print <<"EOF";
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
15 Config {
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
16 version 1
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
17 }
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
18 User {
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
19 screenname "$opts{s}"
1685
e8e190793fe3 [gaim-migrate @ 1695]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
diff changeset
20 }
1741
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
21 Buddy {
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
22 list {
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
23 EOF
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
24
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
25 while (<>) {
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
26 chomp;
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
27 my ($type, $args) = split ' ', $_, 2;
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
28 next unless $type;
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
29
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
30 if ($type eq 'g') {
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
31 print " }\n" if ($in_group);
3489
66bf7ecefedd [gaim-migrate @ 3545]
Christian Hammond <chipx86@chipx86.com>
parents: 3389
diff changeset
32 print qq( "$args" {\n);
1741
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
33 $in_group = 1;
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
34 } elsif ($type eq 'b') {
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
35 my ($buddy, $alias) = split /:/, $args;
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
36 print qq( "$buddy"\n);
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
37 }
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
38 }
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
39
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
40 print <<"EOF";
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
41 }
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
42 }
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
43 }
7506587a394d [gaim-migrate @ 1751]
Eric Warmenhoven <eric@warmenhoven.org>
parents: 1686
diff changeset
44 EOF