Subversion Repositories computer_asset_manager_v1

Rev

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

Rev 68 Rev 74
Line 68... Line 68...
68 
 
 68 
 
69 
my $sth = $dbh->prepare( $query );
 69 
my $sth = $dbh->prepare( $query );
70 
$sth->execute();
 70 
$sth->execute();
71 
 
 71 
 
72 
open REPORT, ">$$configuration{'domuOutput'}" or die "Could not open $$configuration{'domuOutput'} for DOMU Report: $!\n";
 72 
open REPORT, ">$$configuration{'domuOutput'}" or die "Could not open $$configuration{'domuOutput'} for DOMU Report: $!\n";
73 
print REPORT 'DOM0\tDOMU\n";
 73 
print REPORT "DOM0\tDOMU\n";
74 
while ( my $row =  $sth->fetchrow_hashref() ) {
 74 
while ( my $row =  $sth->fetchrow_hashref() ) {
75 
   print REPORT $row->{'DOM0'} . "\t" . $row->{'DOMU'} . "\n";
 75 
   print REPORT $row->{"DOM0"} . "\t" . $row->{"DOMU"} . "\n";
76 
}
 76 
}
77 
close REPORT;
 77 
close REPORT;
78 
`chown www-data:www-data $$configuration{'domuOutput'}`;
 78 
`chown www-data:www-data $$configuration{"domuOutput"}`;
79 
1;
 79 
1;