Subversion Repositories VORC

Rev

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

Rev 153 Rev 155
Line 15... Line 15...
15 
  	my $dsn = "DBI:mysql:host=$host_name;database=$db_name";
 15 
  	my $dsn = "DBI:mysql:host=$host_name;database=$db_name";
Line 16... Line 16...
16
16
Line 17... Line 17...
17 
    return connect_with_option_file($dsn) unless !(-f $ENV{HOME}.'/.my.cnf');
 17 
    return connect_with_option_file($dsn) unless !(-f $ENV{HOME}.'/.my.cnf');
18
18
19 
    warn "using hardcoded password (not $ENV{HOME}/.my.cnf)...";
 19 
    warn "using hardcoded password (not $ENV{HOME}/.my.cnf)...";
Line 20... Line 20...
20 
 	  return (DBI->connect ($dsn, "root", "Jopy666!", {PrintError => 0, RaiseError => 0}) or db_error ($DBI::errstr));
 20 
 	  return (DBI->connect ($dsn, "root", "*********", {PrintError => 0, RaiseError => 0}) or db_error ($DBI::errstr));
21 
  }
 21 
  }
22
22