Subversion Repositories VORC

package WebDB;

  use strict;

  use DBI;

  my $host_name = "192.168.1.5";

  my $db_name = "rollerco_vorc";

  my $dsn = "DBI:mysql:host=$host_name;database=$db_name";

  $ENV{HOME} = "/tmp" unless $ENV{HOME};

  # Connect to MySQL server, using hardwired name and password

  sub connect  {

    return connect_with_option_file() unless !(-f $ENV{HOME}.'/.my.cnf');

    warn "using hardcoded password (not $ENV{HOME}/.my.cnf)...";

 	  return (DBI->connect ($dsn, "root", "********",

	  {PrintError => 0, RaiseError => 1}));

  }

  # Connect to MySQL server, using name and password from the current

  # user's ~/.my.cnf option file. The mysql_read_default_file option,

  # when added to the DSN, specifies which option file to read.

  sub connect_with_option_file  {

	  $dsn .= ";mysql_read_default_file=$ENV{HOME}/.my.cnf";

	  return (DBI->connect ($dsn, undef, undef,

	  {PrintError => 0, RaiseError => 1}));

  }

  # Quash any leading or trailing whitespace

  sub trim {

    my $str = shift;

  	return "" if !defined $str;

  	$str =~ s/^\s+//;

  	$str =~ s/\s+$//;

  	return ($str);

  }

1; # return true