Subversion Repositories ORC

Rev

Rev 8 | Rev 17 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8 Rev 10
Line 80... Line 80...
80 
page1
 80 
page1
Line 81... Line 81...
81 
 
 81 
 
82 
sub updateDBPass {
 82 
sub updateDBPass {
83 
	my ($EM, $STR) = @_;
 83 
	my ($EM, $STR) = @_;
84 
	use DBI;
 84 
	use DBI;
- 
 
 85 
	use WebDB;
85 
	my $dsn = "DBI:mysql:database=rollerco_data;host=qnap.home.lan;port=3306";
 86
86 
	my $dbh = DBI->connect($dsn, 'root', 'Jopy666!');
 87 
	my $dbh = WebDB->connect;
87 
	my $sth = $dbh->prepare("update official set password = password(?) where email=?");
 88 
	my $sth = $dbh->prepare("update official set password = password(?) where email=?");
88 
	$sth->execute($STR, $EM);
 89 
	$sth->execute($STR, $EM);
Line 89... Line 90...
89 
}
 90 
}