Subversion Repositories PEEPS

Rev

Rev 33 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 33 Rev 44
Line 1... Line 1...
1 
package WebDB;
 1 
package WebDB;
2 
  use strict;
 2 
  use strict;
3 
  use DBI;
 3 
  use DBI;
4 
  use List::Util 'shuffle';
 4 
  use List::Util 'shuffle';
Line 5... Line 5...
5
5
- 
 
 6 
  #  my $host_name = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "localhost" : "192.168.1.5";
- 
 
 7 
  my $host_name = $ENV{DBHOST} // db_error ("DBHOST wasn't set in the environment variables.");
6 
  my $host_name = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "localhost" : "192.168.1.5";
 8 
  my $db_name = $ENV{DBNAME} // db_error ("DBNAME wasn't set in the environment variables.");
7 
  $ENV{HOME} = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco" : "/tmp";
 9 
  $ENV{HOME} = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco" : "/tmp";
Line 8... Line 10...
8 
#  $ENV{HOME} = "/tmp" unless $ENV{HOME};
 10 
#  $ENV{HOME} = "/tmp" unless $ENV{HOME};
9
11
10 
  sub SessionDSN {
 12 
  sub SessionDSN {
Line 11... Line 13...
11 
    return "DBI:mysql:wftdi_peeps;host=$host_name;mysql_read_default_file=/tmp/.my.cnf";
 13 
    return "DBI:mysql:$db_name;host=$host_name;mysql_read_default_file=$ENV{HOME}/.my.cnf";
12 
  }
 14 
  }
13
15
14 
  # Connect to MySQL server, using hardwired name and password
 16 
  # Connect to MySQL server, using hardwired name and password
Line 15... Line 17...
15 
  sub connect {
 17 
  sub connect {
16 
		my $DB = shift // "peeps";
 18 
		my $DB = shift // "peeps";
Line 17... Line 19...
17 
		my $dbuser = shift // undef;
 19 
		my $dbuser = shift // undef;
Line 18... Line 20...
18
20