Subversion Repositories ORC

Rev

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

Rev 7 Rev 47
Line 1... Line 1...
1 
package WebDB;
 1 
package WebDB;
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_data";
 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";
Line 7... Line 7...
7
7
8 
  # Connect to MySQL server, using hardwired name and password
 8 
  # Connect to MySQL server, using hardwired name and password
9 
  sub connect  {
 9 
  sub connect  {