annotate gaim2blt.pl @ 6838:551a8111977a

[gaim-migrate @ 7383] Doc updates for the new signal. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Sun, 14 Sep 2003 21:06:32 +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