Server: 93.91.250.120:27775Ahoj, potřeboval bych dát authme na mysql, ale nechci ztratit registrace....
Z jiných témat jsem našel tento script:
https://github.com/whoami-plugins/authm ... o_mysql.plKdyž ho nahraju na web a spustím i s příponou .pl tak mu to nabídne stáhnutí...
proto se ptám... jak ten script spustím? Předem děkuji za každou odpověd
Popřípadě...
Kód: Vybrat vše
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
##############################
# EDIT THESE CONFIG SETTINGS #
##############################
my $host = "loki.fakaheda.eu";
my $database = "gs_27775_1";
my $username = "gs_27775_1";
my $password = "heslo";
my $auth_file = "/auths.db";
###############################
# DO NOT EDIT BELOW THIS LINE #
###############################
open FILE, "$auth_file" or die $!;
my $dbh = DBI->connect("DBI:mysql:$database;host=$host", "$username", "$password") or die "Could not connect to database: $DBI::errstr";
$dbh->do('CREATE TABLE `authme` (
`id` INTEGER AUTO_INCREMENT,
`username` VARCHAR(255) NOT NULL,
`password` VARCHAR(255) NOT NULL,
`ip` VARCHAR(40) NOT NULL,
`lastlogin` BIGINT,
CONSTRAINT `table_const_prim` PRIMARY KEY (`id`));');
my $st = 'INSERT INTO `authme` (`username`, `password`, `ip`, `lastlogin`) VALUES ';
my $i = 0;
while(<FILE>) {
if($i == 1000) {
$i = 0;
$dbh->do($st);
$st = 'INSERT INTO `authme` (`username`, `password`, `ip`, `lastlogin`) VALUES ';
}
my @auth = split(':');
if($i != 0) {
$st .= ", ";
}
$st .= "(\"$auth[0]\", \"$auth[1]\", ";
$st .= "\"" . ($auth[2] || '198.18.0.1') . "\", ";
$st .= ($auth[3] || '0') . ")";
$i++;
}
if($i > 0) {
$dbh->do($st);
}
$dbh->disconnect();
close FILE;
