#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
#
# 

die "Usage: $0 username password\n" unless($ARGV[1]);

$dumpfile="newuser.dump";
$user = $ARGV[0];
$password = $ARGV[1];
$logfile="/var/log/mysql-users";

open (DUMP, ">>$dumpfile");
    print DUMP "INSERT INTO user VALUES \(\'www2.cyberlink.ch\',\'$user\',PASSWORD(\'$password\'),\'Y\',\'Y\',\'Y\',\'Y\',\'N\',\'N\',\'N\',\'N\',\'N\',\'N\'\)\;\n";
    print DUMP "INSERT INTO db VALUES \(\'www2.cyberlink.ch\',\'$user\',\'$user\',\'Y\',\'Y\',\'Y\',\'Y\',\'Y\',\'Y\'\)\;\n";
    print DUMP "CREATE DATABSE $user\;\n";
close (DUMP);

system("/opt/mysql/bin/mysql mysql -pichdarfalles < $dumpfile 2>> $logfile");

unlink $dumpfile;