Mercurial > pidgin
annotate gaim2blt.pl @ 9428:796f510a6e19
[gaim-migrate @ 10247]
Arun A Tharuvai writes:
Slash commands with "w" (and "W") ignore space
between it and the next command. This causes the
trailing space to either: get treated as the first
character of of an immediately following "s" (or "S")
argument, or get treated as the entire contents of any
following "w" (or "W") arguments.
This patch of his, #982083, fixes those issues.
committer: Tailor Script <tailor@pidgin.im>
author | Tim Ringenbach <marv@pidgin.im> |
---|---|
date | Tue, 29 Jun 2004 21:34:07 +0000 |
parents | 66bf7ecefedd |
children |
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 | 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 | 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 |