-
Notifications
You must be signed in to change notification settings - Fork 0
/
revodb.pm
57 lines (46 loc) · 1.29 KB
/
revodb.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#!/usr/bin/perl
#
# revodb.pm
#
# 2006-09-__ Wieland Pusch
# 2008-10-__ Wieland Pusch
#
use strict;
package revodb;
use DBI();
open(my $fh,'<','/run/secrets/voko-abelo.mysql_password')
or die "Mi ne trovis la pasvort-sekreton: $!";
my $mysql_password = <$fh>;
chomp $mysql_password;
close $fh;
######################################################################
sub connect {
# Connect to the database.
my $dbh = DBI->connect("DBI:mysql:database=db314802x3159000;host=abelo;port=3306",
"s314802_3159000", $mysql_password,
{'RaiseError' => 1}) or die "DB ne funkcias";
$dbh->do("set names utf8");
return $dbh;
}
######################################################################
sub pop3login {
return ("XXX", "XXX");
}
######################################################################
sub mysqldump {
open(my $fh,'<','/run/secrets/voko-abelo.mysql_root_password')
or die "Mi ne trovis la pasvort-sekreton: $!";
my $mysql_root_password = <$fh>;
chomp $mysql_root_password;
close $fh;
return "mysqldump --user=root --password=$mysql_root_password --databases usr_web277_1";
}
######################################################################
sub mail_from {
return 'XXX';
}
sub mail_to {
return 'XXX';
}
1;
;