Merge pull request #30 from klondi/mimicfixes

Mimicfixes

src/core/config.py

@@ -84,7 +84,7 @@ class Option(object):
 
 class SourceGenerator(object):
 	def __init__(self, filename, cppStyle = True):
-		print "Generating %s..." % filename
+		print ("Generating %s..." % filename)
 		self.f = open(filename, 'w');
 
 	def write_header(self, Comment = True):

tools/fh2uh_regimport.pl

@@ -0,0 +1,114 @@
+#!/usr/bin/perl
+
+# A simple tool for importing FlexHub users to uhub sqlite database
+#
+# Usage: ./fh2uh_regimport.pl <flexhub_userlist> <uhub_database>
+#
+# Note: uhub database has to be created before running this script.
+
+use File::Slurp;
+use Data::Dumper;
+use DBI;
+
+my @uhubaccounts;
+my $text = read_file $ARGV[0];
+my $dbfile = $ARGV[1];
+
+sub convertprofile
+{
+	$flexprofile = $_[0];
+	if($flexprofile >= 0 && $flexprofile <= 3)
+	{
+		return 'user';
+	}
+	elsif($flexprofile >= 4 && $flexprofile <= 6)
+	{
+		return 'operator';
+	}
+	elsif($flexprofile >= 7 && $flexprofile <= 8)
+	{
+		return 'super';
+	}
+	elsif($flexprofile >= 9 && $flexprofile <= 10)
+	{
+		return 'admin';
+	}
+
+	return 'unknown';
+}
+
+sub parseinfo
+{
+	my @info = split('\n', $_[0]);
+
+	for my $line (@info)
+	{
+		chop $line;
+		my %reginfo;
+		if ($line =~ /\["sNick"\]\s*=\s*\S+/)
+		{
+			my @nick = split(/\["sNick"\]\s*=\s*"(\S+)"/, $line);
+			$reginfo->{'nickname'} = $nick[1];
+		}
+		elsif ($line =~ /\["sPassword"\]\s*=\s*\S+/)
+		{
+			my @password = split(/\["sPassword"\]\s*=\s*"(\S+)"/, $line);
+			$reginfo->{'password'} = $password[1];
+		}
+		elsif ($line =~ /\["iLevel"\]\s*=\s*\S+/)
+		{
+			my @level = split(/\["iLevel"\]\s*=\s*(\d+)/, $line);
+			$reginfo->{'credentials'} = convertprofile $level[1];
+		}
+		elsif ($line =~ /\["iRegDate"\]\s*=\s*\S+/)
+		{
+			my @created = split(/\["iRegDate"\]\s*=\s*(\d+)/, $line);
+			$reginfo->{'created'} = $created[1];
+		}
+		elsif ($line =~ /\["iLastLogin"\]\s*=\s*\S+/)
+		{
+			my @activity = split(/\["iLastLogin"\]\s*=\s*(\d+)/, $line);
+			$reginfo->{'activity'} = $activity[1];
+		}
+	}
+
+	return %{$reginfo};
+}
+
+sub dbimport
+{
+	my @arr = @_;
+	my $db = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "", {RaiseError => 1, AutoCommit => 1});
+
+	for my $import (@arr)
+	{
+		if ($import->{'credentials'} ne 'unknown')
+		{
+			$db->do("INSERT OR IGNORE INTO users (nickname,password,credentials,created,activity) VALUES('$import->{'nickname'}','$import->{'password'}','$import->{'credentials'}',datetime($import->{'created'}, 'unixepoch'),datetime($import->{'activity'}, 'unixepoch'));");
+		}
+	}
+
+	$db->disconnect();
+}
+
+
+if ($text =~ /tAccounts = {/)
+{
+	$text =~ s/^(?:.*\n){1}/},\n/;
+	my @flexaccounts = split('},.*\n.*\[".+"\] = {', $text);
+
+	shift(@flexaccounts);
+
+	for my $account (@flexaccounts)
+	{
+		my %info = parseinfo $account;
+		push(@uhubaccounts, \%info);
+	}
+
+	dbimport @uhubaccounts;
+
+}
+else
+{
+	print "Provided file is not valid FlexHub userlist.\n";
+}

tools/px2uh_regimport.pl

@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+
+# A simple tool for importing PtokaX (< 0.5.0.0) users to uhub sqlite database.
+# Userlist MUST be in xml format.
+#
+# Usage: ./px2uh_regimport.pl <ptokax_userlist.xml> <uhub_database.db>
+#
+# Note: uhub database has to be created before running this script.
+
+use XML::Simple;
+use DBI;
+
+# create xml object
+my $xml = new XML::Simple;
+
+# read XML file
+my $regdata = $xml->XMLin($ARGV[0], ForceArray => [ 'RegisteredUser' ]);
+
+my $dbfile = $ARGV[1];
+my @pxaccounts = @{$regdata->{'RegisteredUser'}};
+
+sub convertprofile
+{
+	$pxprofile = $_[0];
+	if($pxprofile == 2 || $pxprofile == 3)
+	{
+		return 'user';
+	}
+	elsif($pxprofile == 1)
+	{
+		return 'operator';
+	}
+	elsif($pxprofile == 0)
+	{
+		return 'admin';
+	}
+
+	return 'unknown';
+}
+
+sub dbimport
+{
+	my @arr = @_;
+	my $db = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "", {RaiseError => 1, AutoCommit => 1});
+
+	for my $import (@arr)
+	{
+		if ($import->{'credentials'} ne 'unknown')
+		{
+			$db->do("INSERT OR IGNORE INTO users (nickname,password,credentials) VALUES('$import->{'Nick'}','$import->{'Password'}','$import->{'credentials'}');");
+		}
+	}
+
+	$db->disconnect();
+}
+
+for my $account (@pxaccounts)
+{
+	$account->{'credentials'} = convertprofile $account->{'Profile'};
+}
+
+dbimport @pxaccounts;