[cgiapp] Script Error

[Sabherwal, Balvinder (MBS)]

Guru's

I am getting the following error in oneof my scripts. Any ideas as why??

TIA.
Bal.

njsundb25 /var/apache/cgi-bin > perl -d pm_metadata_push.cgi
Default die handler restored.

Loading DB routines from perl5db.pl version 1.07
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(pm_metadata_push.cgi:2): push(@INC,'/var/apache/cgi-bin');
  DB<1> n
main::(pm_metadata_push.cgi:4): my $webapp = "metapush"->new();
  DB<1> 
main::(pm_metadata_push.cgi:5): $webapp->run();
  DB<1> 
[Thu Feb 28 11:34:00 2002] pm_metadata_push.cgi: Can't use string
("showsrvrs") as a subroutine ref while "strict refs" in use at
/usr/local/ActivePerl-5.6/lib/site_perl/5.6.1/CGI/Application.pm line 90.


pm_metadata_push.cgi
****************************
#!/usr/local/ActivePerl-5.6/bin/perl
push(@INC,'/var/apache/cgi-bin');
use pm_metadata_push;
my $webapp = "metapush"->new();
$webapp->run();
***********************************

pm_metadata_push.pm
****************************
package metapush;
use base 'CGI::Application';
use strict;

   sub setup {
        my $self = shift;
        $self->start_mode('mode1');
        $self->run_modes(
                'mode1' => 'showsrvrs',
                'mode2' => 'runshell',
                'mode3' => 'addsrvr'
        );
   }

   sub teardown {
        my $self = shift;
   }

   sub showsrvrs {
        my $self = shift;
        # Get CGI query object
        my $q = $self->query();
        my $srvlst = "/var/apache/cgi-bin/srvrs.txt";
        my @apps;
        if(!open(READLIST, "$srvlst")){
          print "getTableList ".  "unable to open the specified file ".  "'
$srvlst' \n";
          exit(1);
        }
        while(<READLIST>){
            chomp;
            $_ =~ / *(\w+) */;# match just the word(here table name)
                            # without spaces before or after.
            push @apps, $1;
        }
        close(READLIST);
        my $output = '';
        $output .= $q->start_html(-title => 'Push Meta Data');
        $output .= $q->blockquote($q->strong("<h1>Push Meta Data
Details</h1>"));
        $output .= $q->start_form();
        {
        local($") = '';
        $output .= $q->blockquote("Select Server     : ",
$q->popup_menu(-name=> 'srv', -values =>\@apps));
        }
        {
        local($") = '';
        $output .= $q->hidden(-name => 'rm', -value => 'mode2', -override=>1
);
        }
        {
        local($") = '';
        $output .= $q->submit("Push Data");
        }
        $output .= $q->end_form();
        $output .= $q->start_form();
        $output .= $q->hidden(-name => 'rm', -value => 'mode3',
-override=>1);
        $output .= $q->submit("Add New Server");
        $output .= $q->end_form();
        $output .= $q->end_html();
        return $output;
   }

   sub runshell {
        my $self = shift;
        #Get CGI query object
        my $q = $self->query();
        my $srv = $q->param("srv");

        my $output = '';
        $output .= $q->start_html(-title => 'Push Meta Data');
        $output .= $q->blockquote($q->strong("<h1>Push Meta Data</h1>"));
        $output .= $q->blockquote("Selected Server : $srv");
        $output .= `a-cgi $srv`;
        $output .= $q->hidden(-name => 'rm', -value => 'mode1',
-override=>1);
        $output .= $q->submit("Next Server");
        $output .= $q->end_form();
        $output .= $q->end_html();
        return $output;
   }

sub addsrvr {
return 1;
}
1;

---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/cgiapp%40lists.vm.com/
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]