print " 7. Create/append full privileges for an existing database\n";
print " and host combination (user has FULL privilege)\n";
print " 8. Remove all privileges for for an existing database and\n";
print " host combination.\n";
print " (user will have all permission fields set to N)\n";
print " 0. exit this program\n";
print " 0. exit this program\n";
print "\nMake your choice [1,2,3,4,5,0]: ";
print "\nMake your choice [1,2,3,4,5,6,7,0]: ";
while(<STDIN>){
while(<STDIN>){
$answer=$_;
$answer=$_;
chomp($answer);
chomp($answer);
if($answer=~ /1|2|3|4|5|0/){
if($answer=~ /^[12345678]$/){
&setpwd if($answer== 1);
if($answer== 1){
&addall($answer)if($answer=~ /^[2345]$/);
setpwd();
if($answer== 0){
} elsif ($answer=~ /^[2345678]$/){
print "Sorry, hope we can help you next time \n\n";
addall($answer);
}else{
print "Sorry, something went wrong. With such option number you should not get here.\n\n";
$end= 1;
$end= 1;
}
}
} elsif ($answer== 0){
print "We hope we can help you next time \n\n";
$end= 1;
}else{
}else{
print "Your answer was $answer\n";
print "Your answer was $answer\n";
print "and that's wrong .... Try again\n";
print "and that's wrong .... Try again\n";
...
@@ -121,7 +143,7 @@ sub q1 { # first question ...
...
@@ -121,7 +143,7 @@ sub q1 { # first question ...
###
###
sub setpwd
sub setpwd
{
{
my ($user,$pass,$host);
my ($user,$pass,$host)="";
print "\n\nSetting a (new) password for a user.\n";
print "\n\nSetting a (new) password for a user.\n";
$user= user();
$user= user();
...
@@ -168,22 +190,18 @@ sub setpwd
...
@@ -168,22 +190,18 @@ sub setpwd
###
###
# all things which will be added are done here
# all things which will be added are done here
###
###
sub addall
sub addall {
{
my ($todo)= @_;
my ($todo)= @_;
my ($answer,$good,$db,$user,$pass,$host,$priv);
my ($answer,$good,$db,$user,$pass,$host,$priv);
if($todo== 2)
if($todo== 2){
{
$db= newdatabase();
$db= newdatabase();
}
}else{
else
{
$db= database();
$db= database();
}
}
$user= newuser();
$user= newuser();
$pass= newpass();
$pass= newpass("$user");
$host= newhosts();
$host= newhosts();
print "#"x70;
print "#"x70;
...
@@ -198,104 +216,80 @@ sub addall
...
@@ -198,104 +216,80 @@ sub addall
print "Are you pretty sure you would like to implement this [yes/no]: ";
print "Are you pretty sure you would like to implement this [yes/no]: ";
my $no= <STDIN>;
my $no= <STDIN>;
chomp($no);
chomp($no);
if($no=~ /n/i)
if($no=~ /n/i){
{
print "Okay .. that was it then ... See ya\n\n";
print "Okay .. that was it then ... See ya\n\n";
return(0);
return(0);
}
}else{
else
{
print "Okay ... let's go then ...\n\n";
print "Okay ... let's go then ...\n\n";
}
}
if($todo== 2)
if($todo== 2){
{
# create the database
# create the database
my $sth=$dbh->do("create database $db")||$dbh->errstr;
if($db){
}
my $sth=$dbh->do("CREATE DATABASE $db")||$dbh->errstr;
}else{
# select the privilege ....
print STDERR "What do you want? You wanted to create new database and add new user, right?\n";
if(($todo== 2)||($todo== 3))
die "But then specify databasename, please\n";
{
$priv="'Y','Y','Y','Y','Y','Y','Y','Y','Y','Y'";
}
elsif ($todo== 4)
{
$priv="'Y','Y','Y','Y','N','N','N','Y','Y','Y'";
}
}
elsif ($todo== 5)
{
$priv="'Y','N','N','N','N','N','N','N','N','N'";
}
}
else
{
if((!$todo) or not ($todo=~ m/^[2-8]$/)){
print "Sorry, choice number$todo isn't known inside the program .. See ya\n";
print STDERR "Sorry, select option$todo isn't known inside the program .. See ya\n";
quit();
quit();
}
}
my @hosts =split(/,/,$host);
my @hosts =split(/,/,$host);
$user=$dbh->quote($user);
if(!$user){
$db=$dbh->quote($db);
die "username not specified: $user\n";
if($pass eq '')
}
{
if(!$db){
$pass="''";
die "databasename is not specified nor *\n";
}
}
else
foreach $host(@hosts){
{
# user privileges: SELECT
$pass="PASSWORD(".$dbh->quote($pass).")";
if(($todo== 2)||($todo== 3)){
}
$sth=$dbh->do("GRANT SELECT ON $db.* TO $user@\"$host\" IDENTIFIED BY \'$pass\'")|| die $dbh->errstr;
foreach my $key(@hosts)
} elsif ($todo== 4){
{
# user privileges: SELECT,INSERT,UPDATE,DELETE
my $key1=$dbh->quote($key);
$sth=$dbh->do("GRANT SELECT,INSERT,UPDATE,DELETE ON $db.* TO $user@\"$host\" IDENTIFIED BY \'$pass\'")|| die $dbh->errstr;
my $sth=$dbh->prepare("select Host,User from user where Host = $key1 and User = $user")|| die $dbh->errstr;
} elsif ($todo== 5){
$sth->execute || die $dbh->errstr;
# user privileges: SELECT,INSERT,UPDATE,DELETE,CREATE,DROP,INDEX,LOCK TABLES,CREATE TEMPORARY TABLES
my @r =$sth->fetchrow_array;
$sth=$dbh->do("GRANT SELECT,INSERT,UPDATE,DELETE,CREATE,DROP,INDEX,LOCK TABLES,CREATE TEMPORARY TABLES ON $db.* TO $user@\"$host\" IDENTIFIED BY \'$pass\'")|| die $dbh->errstr;
if($r[0])
} elsif ($todo== 6){
{
# admin privileges: GRANT SELECT,INSERT,UPDATE,DELETE,CREATE,DROP,INDEX,LOCK TABLES,CREATE TEMPORARY TABLES,SHOW DATABASES,PROCESS
print "WARNING WARNING SKIPPING CREATE FOR USER $user AND HOST $key\n";
$sth=$dbh->do("GRANT SELECT,INSERT,UPDATE,DELETE,CREATE,DROP,INDEX,LOCK TABLES,CREATE TEMPORARY TABLES,SHOW DATABASES,PROCESS ON $db.* TO $user@\"$host\" IDENTIFIED BY \'$pass\'")|| die $dbh->errstr;
print "Reason: entry already exists in the user table.\n";
} elsif ($todo== 7){
}
# all privileges
else
$sth=$dbh->do("GRANT ALL ON $db.* TO \'$user\'\@\'$host\' IDENTIFIED BY \'$pass\'")|| die $dbh->errstr;
{
} elsif ($todo== 8){
$sth=$dbh->prepare("insert into user (Host,User,Password) values($key1,$user,$pass)")|| die $dbh->errstr;
# all privileges set to N
$sth->execute || die $dbh->errstr;
$sth=$dbh->do("REVOKE ALL ON *.* FROM \'$user\'\@\'$host\'")|| die $dbh->errstr;
$sth->finish;
}
}
}
$sth=$dbh->prepare("INSERT INTO db (Host,Db,User,Select_priv,Insert_priv,Update_priv,Delete_priv,Create_priv,Drop_priv,Grant_priv,References_priv,Index_priv,Alter_priv) VALUES ($key1,$db,$user,$priv)")|| die $dbh->errstr;
