Hi everybody ,
i have the task of developing in Perl a script that retrieves data from 3 tables ( bugs, profiles, products) from a MySQL database called bugs and display them in an excel sheet report.
I always get when trying to test it " 500 Internal Server Error - The server encountered an internal error or misconfiguration and was unable to complete your request."
Can somebody help me please.
//connect to MySQL database
#!/usr/bin/perl –w
//# -*- Mode: perl; indent-tabs-mode: nil -*-
//use lib qw(.);
//use Bugzilla;
//use Bugzilla::Bug; # EmitDependList
//use Bugzilla::Constants; # LOGIN_*
//use Bugzilla::User; # UserInGroup
//require "globals.pl";
use DBI;
use strict;
use warnings;
use Spreadsheet::SimpleExcel;
//my $cgi = Bugzilla->cgi;
//my $dbh = Bugzilla->dbh;
//my $template = Bugzilla->template;
//my $vars = {};
#data
my @data1 = (['Row1Col1', 'Row1Col2'],
[Row2Col1', 'Row2Col2']);
my $worksheet = ['Report.xls', {-data => \@data1}];
print “Available Database Drivers:\n\n”;
print join(“\n”, DBI - > availableDrivers()), “\n\n”;
//my %attr => (RaiseError => 0);
my $dbh = DBI -> connect(“DBI:mysql:dbname=bugs:localhost”, “carole”, “carole”, { RaiseError => 1, PrintError => 0,
AutoCommit => 0 })
or die(“Error: $DBI::errstr”);
my $excel_file = ‘C:/Perl/Report.xls’;
//-e checks to see if the file exists
if (-e “$excel_file”)
{
#open Excel file
my $Book = $Excel -> Workbooks -> Open(“$excel_file”);
}else{
//paste code here to create a new file
#create a new instance
my $excel = Spreadsheet::SimpleExcel -> new(-worksheets => [$worksheets]);
//$excel ->{Visible}=1;
#to create a file
my $filename = 'Report.xls';
my $excel = Spreadsheet::SimpleExcel -> new (-filename =>$filename);
//$excel -> { SheetsInNewWorkBook} =1;
//$workbook = $excel -> Workbooks ->Add();
//$worksheet = $ Workbook -> Worksheets(1);
//$worksheet -> {Name} = “Report”;
#add worksheets
$excel -> add_worksheet('Report.xls');
my $sth = $dbh -> prepare(‘select b.bug_id, b.bug_file_loc, b.bug_severity, b.bug_status, b.creation_ts, b.delta_ts,
b.short_desc, b.op_sys, b.priority, b.rep_plarform, b.version, b.component_id, b.resolution, b.target_milestone,
b.status_whiteboard, b.votes, b.keywords, b.last_diffed, b.everconfirmed, b.reporter_accessible, b.cclist_accessible,
b.estimated_time, b.remaining_time, b.deadline, b.alias, pf.login_name, pd.name
from bugs b, profiles pf, products pd
where bugs.assigned_to = profiles.user_id
and bugs.product_id = products.id
order by bug_id;’);
$sth ->execute() or die $dbh ->errstr;
while ( my $ref = $sth->fetchrow_hashref()) {
print $ref ->{ 'bug_id', 'assigned_to', 'bug_file_loc', 'bug_severity', 'bug_status', 'creation_ts', 'delta_ts',
'short_desc', 'op_sys', 'priority', 'product_id', 'rep_plarform', 'version', 'component_id', 'resolution',
'target_milestone', 'status_whiteboard', 'votes', 'keywords', 'last_diffed', 'everconfirmed', 'reporter_accessible',
'cclist_accessible', 'estimated_time', 'remaining_time', 'deadline', 'alias', 'login_name', 'name'}, "\n";
}
$sth -> finish();
#create the spreadsheet
$excel -> output();
#sort data of worksheet – ASC or DESC
$excel -> sort_data(‘Report.xls’,0, ‘ASC’);
#add headers to 'Report'
$excel -> set_headers('Report.xls', [qw/Bugs report/]);
#print sheet-names
print join( “, “,$excel -> sheets()), “\n”;
#get the result as a string
my $spreadsheet = $excel -> output_as_string();
#print result into a file and handle error
$excel->output_to_file(“Report.xls”) or die $excel -> errstr();
$workbook -> SaveAs($excel_file);
$dbh -> disconnect();
1 3013
Hi everybody ,
i have the task of developing in Perl a script that retrieves data from 3 tables ( bugs, profiles, products) from a MySQL database called bugs and display them in an excel sheet report.
I always get when trying to test it " 500 Internal Server Error - The server encountered an internal error or misconfiguration and was unable to complete your request."
Can somebody help me please. -
//connect to MySQL database
-
-
#!/usr/bin/perl –w
-
//# -*- Mode: perl; indent-tabs-mode: nil -*-
-
-
//use lib qw(.);
-
-
//use Bugzilla;
-
//use Bugzilla::Bug; # EmitDependList
-
-
//use Bugzilla::Constants; # LOGIN_*
-
//use Bugzilla::User; # UserInGroup
-
-
//require "globals.pl";
-
-
-
-
use DBI;
-
use strict;
-
use warnings;
-
-
use Spreadsheet::SimpleExcel;
-
-
-
-
//my $cgi = Bugzilla->cgi;
-
//my $dbh = Bugzilla->dbh;
-
//my $template = Bugzilla->template;
-
//my $vars = {};
-
-
-
-
#data
-
my @data1 = (['Row1Col1', 'Row1Col2'],
-
[Row2Col1', 'Row2Col2']);
-
-
my $worksheet = ['Report.xls', {-data => \@data1}];
-
-
print “Available Database Drivers:\n\n”;
-
print join(“\n”, DBI - > availableDrivers()), “\n\n”;
-
-
//my %attr => (RaiseError => 0);
-
-
my $dbh = DBI -> connect(“DBI:mysql:dbname=bugs:localhost”, “carole”, “carole”, { RaiseError => 1, PrintError => 0,
-
-
AutoCommit => 0 })
-
or die(“Error: $DBI::errstr”);
-
-
my $excel_file = ‘C:/Perl/Report.xls’;
-
-
//-e checks to see if the file exists
-
-
if (-e “$excel_file”)
-
{
-
-
#open Excel file
-
my $Book = $Excel -> Workbooks -> Open(“$excel_file”);
-
}else{
-
-
//paste code here to create a new file
-
#create a new instance
-
my $excel = Spreadsheet::SimpleExcel -> new(-worksheets => [$worksheets]);
-
-
-
//$excel ->{Visible}=1;
-
-
#to create a file
-
my $filename = 'Report.xls';
-
my $excel = Spreadsheet::SimpleExcel -> new (-filename =>$filename);
-
-
-
//$excel -> { SheetsInNewWorkBook} =1;
-
-
//$workbook = $excel -> Workbooks ->Add();
-
-
//$worksheet = $ Workbook -> Worksheets(1);
-
//$worksheet -> {Name} = “Report”;
-
-
#add worksheets
-
$excel -> add_worksheet('Report.xls');
-
-
my $sth = $dbh -> prepare(‘select b.bug_id, b.bug_file_loc, b.bug_severity, b.bug_status, b.creation_ts, b.delta_ts,
-
-
b.short_desc, b.op_sys, b.priority, b.rep_plarform, b.version, b.component_id, b.resolution, b.target_milestone,
-
-
b.status_whiteboard, b.votes, b.keywords, b.last_diffed, b.everconfirmed, b.reporter_accessible, b.cclist_accessible,
-
-
b.estimated_time, b.remaining_time, b.deadline, b.alias, pf.login_name, pd.name
-
from bugs b, profiles pf, products pd
-
where bugs.assigned_to = profiles.user_id
-
and bugs.product_id = products.id
-
order by bug_id;’);
-
-
$sth ->execute() or die $dbh ->errstr;
-
-
while ( my $ref = $sth->fetchrow_hashref()) {
-
-
print $ref ->{ 'bug_id', 'assigned_to', 'bug_file_loc', 'bug_severity', 'bug_status', 'creation_ts', 'delta_ts',
-
-
'short_desc', 'op_sys', 'priority', 'product_id', 'rep_plarform', 'version', 'component_id', 'resolution',
-
-
'target_milestone', 'status_whiteboard', 'votes', 'keywords', 'last_diffed', 'everconfirmed', 'reporter_accessible',
-
-
'cclist_accessible', 'estimated_time', 'remaining_time', 'deadline', 'alias', 'login_name', 'name'}, "\n";
-
-
}
-
-
$sth -> finish();
-
-
#create the spreadsheet
-
$excel -> output();
-
-
#sort data of worksheet – ASC or DESC
-
$excel -> sort_data(‘Report.xls’,0, ‘ASC’);
-
-
#add headers to 'Report'
-
$excel -> set_headers('Report.xls', [qw/Bugs report/]);
-
-
-
-
#print sheet-names
-
print join( “, “,$excel -> sheets()), “\n”;
-
-
#get the result as a string
-
my $spreadsheet = $excel -> output_as_string();
-
-
#print result into a file and handle error
-
$excel->output_to_file(“Report.xls”) or die $excel -> errstr();
-
$workbook -> SaveAs($excel_file);
-
-
$dbh -> disconnect();
-
First, please be sure to put all of your code inside of the code tags. This way our wonderful moderator(s) don't have to follow up behind you and clean up your posting. You can find a sample of code tags in the Reply Guidelines next to your message window when submitting a message.
(Miller: Can you please do this for the original post. ;-|) )
As for your issue, it sounds like you are not able to get to the database ( I am assuming that is where the error is coming from). Have you tried connecting to the database by hand, with the same information in the code? This will ensure that:
1. The database is running.
2. The code you are using will work when the time comes.
Try this and let us know what happens.
Regards,
Jeff
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Johnny |
last post by:
I was looking for information on how to import an excel file or other
text file into a MySql database. I have done this with both access
and SQL Server and am looking for a way to do this in...
|
by: bawar |
last post by:
Hey, I can say I belong to the newbies in this subject. I own my own
website with mySQL-databases, but now I have to show one table of
those mySQL-databases in an excel worksheet. It is the...
|
by: ctkevin |
last post by:
I am an experienced Access user but recently moved an Access database
to the web for my employer.
We use a host that does not allow the use of data access pages.
Is there anyway to pre-build a...
|
by: DeniseY |
last post by:
I have an Access report that is created on the fly by the user selecting the fields to be included. The Access report comes out fine, but I want it to automatically output to an Excel spreadsheet....
|
by: nofear |
last post by:
I used to export my reports as snapshot but now I have to export them
to Excel
When I export my report to a Excel Spreadsheet the report header and
footer are not included
Only the data gets...
|
by: Sport Girl |
last post by:
Hi everybody.
I am new in PERL language and working in it since little hours, actually i am still a trainee and i need help please.
In fact, i need a script in PERL that enables me to retrieve...
|
by: Sport Girl |
last post by:
Hi again my great online assistants, just would like to say that i'm testing the script under unix , and after researches on the internet, i have realised that to resolve 500 Internal Server Error,...
|
by: Master Ken |
last post by:
Hi All,
I'm very new to C# and ASP and I am asking for some help as I don't really know where to start on this project.
Some background info first
I run a report each week which outputs data...
|
by: Alan M Dunsmuir |
last post by:
A client has sent me a (Windows) Excel Spreadsheet (.xls) file
containing a block of data he wants included as a table in a MySQL
database in a (Linux-based) PHP/MySQL Web application I'm...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new...
| |