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
|
#
# constants
#
package Common;
use DBI;
use strict;
use warnings;
#
# MODULE STARTUP
#
sub installed {
my $module = $_;
my $check = 0;
eval "use $module";
if ($@) {
$check =0;
} else {
$check = 1; # non-zero equals installed.
my $version = 0;
eval "\$version = \$$module\::VERSION";
$check = $version if (!$@); # Set check to version number if it exist.
}
return $check;
}
sub connectToDatabase($$$$$) {
my ($db, $dbuser, $dbpasswd, $db_vendor, $host) = @_;
if ($db_vendor eq "Oracle") {
return DBI->connect("DBI:Oracle:$host", $dbuser, $dbpasswd, { RaiseError => 1, PrintError => 0, AutoCommit => 0 })
|| die "Can't open database $host:$dbuser: $DBI::errstr\n";
}
if ($db_vendor eq "MySQL") {
return DBI->connect("dbi:mysql:$db:$host", $dbuser, $dbpasswd, { RaiseError => 1, PrintError => 0, AutoCommit => 0 })
|| die "Can't open database $db:$dbuser: $DBI::errstr\n";
}
}
sub updateFieldInDpmWhereString ($$$$$$) {
my ($dbh, $table, $field, $value, $where_field, $where_field_value_string) = @_;
my $update = "UPDATE $table SET $field = '$value' WHERE $where_field='$where_field_value_string'";
my $prepare = $dbh->prepare($update);
if (!$prepare->execute) {
warn $dbh->errstr;
}
}
1;
|
