Subversion Repositories VORC

Rev

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

Rev 150 Rev 151
Line 25... Line 25...
25 
	  for (shuffle qw(1 2 3 4 5)) {
 25 
	  for (shuffle qw(1 2 3 4 5)) {
26 
	    # warn "Trying connection $_";
 26 
	    # warn "Trying connection $_";
27 
	  	my $connection = DBI->connect ($dsn.".$_", undef, undef, {PrintError => 0, RaiseError => 0});
 27 
	  	my $connection = DBI->connect ($dsn.".$_", undef, undef, {PrintError => 0, RaiseError => 0});
28 
	  	return $connection unless !$connection;
 28 
	  	return $connection unless !$connection;
29 
	  }
 29 
	  }
- 
 
 30 
    my $active_users = `/bin/ls -1 /home3/rollerco/vorc_sessions/active/ | /usr/bin/wc -l`; chomp $active_users;
- 
 
 31 
    warn "DB OUT OF CONNECTIONS WITH ACTIVE USERS: $active_users";
30 
	  db_error ($DBI::errstr);
 32 
	  db_error ($DBI::errstr);
31 
  }
 33 
  }
Line 32... Line 34...
32
34
33 
  # Quash any leading or trailing whitespace
 35 
  # Quash any leading or trailing whitespace