Subversion Repositories VORC

Rev

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

Rev 50 Rev 63
Line 2... Line 2...
2 
  use strict;
 2 
  use strict;
3 
  use DBI;
 3 
  use DBI;
4 
  my $host_name = "192.168.1.5";
 4 
  my $host_name = "192.168.1.5";
5 
  my $db_name = "rollerco_vorc";
 5 
  my $db_name = "rollerco_vorc";
6 
  my $dsn = "DBI:mysql:host=$host_name;database=$db_name";
 6 
  my $dsn = "DBI:mysql:host=$host_name;database=$db_name";
- 
 
 7 
  $ENV{HOME} = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco" : "/tmp";
7 
  $ENV{HOME} = "/tmp" unless $ENV{HOME};
 8 
#  $ENV{HOME} = "/tmp" unless $ENV{HOME};
Line 8... Line 9...
8
9
9 
  # Connect to MySQL server, using hardwired name and password
 10 
  # Connect to MySQL server, using hardwired name and password
10 
  sub connect  {
 11 
  sub connect  {