Hi,
I am using 2 modules under the GGI tree. If I remove CGI and use
CGI::ProgressBar, am I importing all the methods from the CGI module
still?
My experiments suggest not but I thought I read that @INC will search
up the tree.
If I do this
#use CGI qw/:standard/;
use CGI::ProgressBar qw/:standard/;
my $q = new CGI::ProgressBar;
print $q->header();
...snip
the output looks odd.
Whats more I am having to use the fqn to some of the subroutine in
CGI::ProgressBar or I get a "Undefined subroutine" error, ala
CGI::ProgressBar::hide_progress_bar
Am I missing something?
======== script below =====
use strict;
use warnings;
use Apache2::Const qw(OK DECLINED NOT_FOUND);
use Apache2::RequestUtil ();
use Apache2::RequestRec ();
use HTTP::Request;
use MIME::Lite;
#use CGI qw/:standard/;
use CGI::ProgressBar qw/:standard/;
$| = 1;
sub handler {
my $q = new CGI::ProgressBar;
print $q->header();
print $q->start_html(-title => "Sending Email...",
-style => '/css/psex.css',);
# Define progress bar.
progress_bar(
-from =>1,
-to =>12,
-width => 100,
-colors => [0,'green','red'],
);
# Create the email object
my $msg = MIME::Lite->new(
From => $q->param("eml"),
To => $q->param("eml"),
Subject => "Test-Email",
Type => 'multipart/mixed'
);
for (1..4) {
print $q->update_progress_bar;
}
# print CGI::ProgressBar::hide_progress_bar;
# Send email
# $msg->send;
print end_html;
return OK;
}
1;
========
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
