annotate gaim2blt.pl @ 8995:9caf796e74aa

[gaim-migrate @ 9770] "Luke, if you get a chance, could you commit this? It should improve the HTML escaping situation between Gaim and other AIM and ICQ clients. I haven't actually applied it locally or tested it, but it looks ok to me. I would do it myself, but there are other changes in my oscar.c that aren't ready to commit, and I want to go to sleep so I can wake up tomorrow... I'll probably be out of town climbing until Sunday night... "--Mark Doliner "Below is an email I nearly sent you, before deciding to test & document the failure cases I knew of. http://www.nosnilmot.com/gaim/oscar-html.txt shows how current CVS behaves sending the string "<foo>" between GaimICQ/GaimAIM/ICQLite/WinAIM in various combinations After that testing I couldn't help trying to fix it :) The attached patch, from my testing, resolves all those marked with "XX" so that what is received matches what the user sent. The code might not be the most efficient and may contain redundant bits but I've had enough of this for now, 2 Windows crashes which caused VMWare to be weird and half break my keyboard and require restarting X. The patch might want a bit more testing, especially with iChat (I'm unable to test with that). Maybe committing it to CVS might get it some more testing though ;-)" --Stu Tomlinson committer: Tailor Script <tailor@pidgin.im>
author Luke Schierer <lschiere@pidgin.im>
date Fri, 21 May 2004 11:55:08 +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