gaim/gaim
Clone
Summary
Browse
Changes
Graph
and sync this tree as well
gtk1-stable
2002-10-10, Luke Schierer
330c9d58c2ce
file is
Executable
and sync this tree as well
#!/usr/bin/perl -w
# Original by Andy Harrison,
# Rewrite by Decklin Foster,
# Available under the GPL.
package
Gaim2Blt
;
use
strict
;
use
Getopt::Std
;
use
vars
qw(%opts $in_group)
;
getopts
(
's:'
,
\
%opts
);
die
"usage: $0 -s 'screen name' gaim.buddy\n"
unless
$opts
{
s
};
print
<<"
EOF
";
Config {
version 1
}
User {
screenname "$opts{s}"
}
Buddy {
list {
EOF
while
(
<>
)
{
chomp
;
my
(
$type
,
$args
)
=
split
' '
,
$_
,
2
;
next
unless
$type
;
if
(
$type
eq
'g'
)
{
print
" }\n"
if
(
$in_group
);
print
qq( "$args" {\n)
;
$in_group
=
1
;
}
elsif
(
$type
eq
'b'
)
{
my
(
$buddy
,
$alias
)
=
split
/:/
,
$args
;
print
qq( "$buddy"\n)
;
}
}
print
<<"
EOF
";
}
}
}
EOF