Subversion Repositories computer_asset_manager_v1

Rev

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

Rev 93 Rev 115
Line 170... Line 170...
170 
}
 170 
}
171 
 
 171 
 
172 
my $configuration = &loadConfig( $confFileName, @searchPaths );
 172 
my $configuration = &loadConfig( $confFileName, @searchPaths );
173 
die "Could not find configuration file $confFileName in " . join( ', ', @searchPaths) . "\n" unless $configuration;
 173 
die "Could not find configuration file $confFileName in " . join( ', ', @searchPaths) . "\n" unless $configuration;
174 
 
 174 
 
- 
 
 175 
my $dbh = DBI->connect('DBI:mysql:database=' . $$configuration{'database'}{'database'} . ';host=' . $$configuration{'database'}{'databaseServer'},
- 
 
 176 
                       $$configuration{'database'}{'databaseUsername'},
- 
 
 177 
                                              $$configuration{'database'}{'databasePassword'} )
- 
 
 178 
                                                       || die "Could not connect to database: $DBI::errstr";
- 
 
 179
- 
 
 180 
 
175 
my $dbh = DBI->connect('DBI:mysql:' . $$configuration{'database'}{'database'},
 181 
#my $dbh = DBI->connect('DBI:mysql:' . $$configuration{'database'}{'database'},
176 
                       $$configuration{'database'}{'databaseUsername'},
182 
#                       $$configuration{'database'}{'databaseUsername'},
177 
                       $$configuration{'database'}{'databasePassword'} )
 183 
#                       $$configuration{'database'}{'databasePassword'} )
178 
         || die "Could not connect to database: $DBI::errstr";
 184 
#         || die "Could not connect to database: $DBI::errstr";
179 
 
 185 
 
180 
my $sth = $dbh->prepare( $count );
 186 
my $sth = $dbh->prepare( $count );
181 
$sth->execute();
 187 
$sth->execute();
182 
my $results = $sth->fetchrow_hashref();
 188 
my $results = $sth->fetchrow_hashref();
183 
$message .= "$results->{Count} reports in last 24 hours\n";
 189 
$message .= "$results->{Count} reports in last 24 hours\n";