view buddytrans @ 1250:b5783215b245

[gaim-migrate @ 1260] decklin's clean up of the account editor, much needed. indent -kr -i8 -l105 -ncs -cp7 -npcs -T GtkWidget -T gpointer -T AppletCallbackFunc -T GtkFunction -T gaim_plugin_remove -T name -T FILE -T gchar -T user_opts -T GdkEvent -T GtkObject ... did about.c, aim.c, away.c, browser.c, buddy_chat.c, gaimrc.c, html.c, idle.c, multi.c. Need to do buddy.c, conversation.c, dialogs.c, oscar.c, perl.c, plugins.c, prefs.c, proxy.c, prpl.c, rvous.c, server.c, sound.c, toc.c, util.c. not doing gtkhtml.c because it's a piece of crap anyway, or *ticker.c because they're syd's. got rid of debug_buff, just debug_printf now. committer: Tailor Script <[e-mail]>

#!/usr/bin/perl -w
#
#  gaim
# 
#  Copyright (C) 1998-1999, Mark Spencer <[e-mail]>
# 
#  This program is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
# 
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
# 
#  You should have received a copy of the GNU General Public License
#  along with this program; if not, write to the Free Software
#  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
# 
#  ---
#
#  Buddy List Conversion Script Written By: John Assalone <[e-mail]>
#        Modifications by: Rob Flynn <IM: Rob Flynn> <[e-mail]>
#
#  Syntax: ./buddytrans buddy.list gaimlist
#

print "Gaim - Buddy List Translator\n";
print "----------------------------\n";

if ((!$ARGV[0]) || (!$ARGV[1]))
{
  print "Syntax: ./buddytrans buddy.lst gaimlist\n";
  exit(0);
}

$source = $ARGV[0];
$dest = $ARGV[1];
if (-e $source)
{
 print("Source=$source, Dest=$dest\n");

 if (-e $dest) 
 {
	print ("$dest exists! Should I continue? ");
	if (<STDIN> =~ /^y/i) 
        { 
          do_trans(); 
        }
	else { exit(0); }
 } 

 do_trans();

sub do_trans {
	open (SOURCE, $source);
	open (DEST, ">$dest");
	print DEST "toc_set_config {m 1\n";
	while ($line = <SOURCE>) {
		chomp($line);
		if ($line =~ /[a-zA-Z]+/) {
			if ($line =~ /^\s/) { $line =~ s/\s//; }
			$line =~ s/\s/\*/;
			($field, $name) = split(/\*/, $line);
			if ($field eq "group") {
				$name =~ s/\"//g;
				print DEST "g $name\n";
				next;
			}
			if ($field eq "buddy") {
				$name =~ s/\"//g;
				print DEST "b $name\n";
				next;
			}
			else { next; }
		}
		else { next; }
	}
	print DEST "}";
}
	print "Conversion Complete.\n";
} else {
  print "Source file must exist!\n\nSyntax: ./buddytrans buddy.lst gaimlist\n";
  exit(0);
}