Re: [cgiapp] Can't pass mode2

[Brian . T . Wightman]

See the documentation for the -override switch in CGI.pm (perldoc CGI).

This was also discussed just this week on this list.  Find a set of
messages with the subject "runmode stickiness".

Does anyone know if there is a searchable archive to this list?  Then we
could just point to <20020116144504.A16582115@IBM973237G> in the archives.

Brian





[EMAIL PROTECTED] on 01/18/2002 10:59:26 AM

To:   [EMAIL PROTECTED]
cc:
bcc:

Subject:  [cgiapp] Can't pass mode2


In the below script, When I enter the mode2, the hidden field "rm" show's
me
a value of mode2 again insted of mode3. Is tere something I am doing wrong.
I can't make this pass mode2. Can someone pls help me.

TIA
Bal.

package testapi;
use base 'CGI::Application';
use strict;

   sub setup {
 my $self = shift;
 $self->start_mode('mode1');
 $self->run_modes(
  'mode1' => 'showapps',
  'mode2' => 'showyear',
  'mode3' => 'showdates',
  'mode4' => 'showdetails'
 );

   }

   sub teardown {
 my $self = shift;

   }

   sub showapps {
 my $self = shift;
 # Get CGI query object
 my $q = $self->query();
 my $startloc = "C:\\sysmondb";
 opendir(SMD,$startloc) || die "Failed to open Sysmon DB: $!, error
in $startloc";
 my @apps;
 @apps = grep {$_ !~ m/^\.{1,2}$/} readdir(SMD);
 closedir(SMD);
 my $output = '';
 $output .= $q->start_html(-title => 'Sysmon Database');
 $output .= $q->start_form();
 $output .= $q->blockquote("Select Environment : ",
$q->popup_menu(-name=> 'apps', -values =>\@apps));
 $output .= $q->hidden(-name => 'rm', -value => 'mode2');
 $output .= $q->hidden(-name => 'tdir', -value => $startloc );
 $output .= $q->submit("Select Env.");
 $output .= $q->end_form();
 $output .= $q->end_html();
 return $output;
   }

   sub showyear {
 my $self = shift;
  #Get CGI query object
 my $q = $self->query();
 my $app = $q->param("apps");
 my $tdir =$q->param("tdir");
 my $cdir = $tdir . "\\\\" . $app;
 opendir(SMD,$cdir) || die "Failed to open Sysmon DB: $!, error in
$cdir";
 my @yrs;
 @yrs = grep {$_ !~ m/^\.{1,2}$/} readdir(SMD);
 closedir(SMD);
 my $output = '';
 $output .= $q->start_html(-title => 'Sysmon Database');
 $output .= $q->blockquote("Selected Environment : $app");
 $output .= $q->start_form();
 $output .= $q->blockquote("Select Year : ", $q->popup_menu(-name=>
'yr', -values =>\@yrs));
 $output .= $q->hidden(-name => 'rm', -value => 'mode3');
 $output .= $q->hidden(-name => 'tdir', -value => $tdir );
 $output .= $q->hidden(-name => 'app', -value => $app );
 $output .= $q->submit("Select Year");
 $output .= $q->end_form();
 $output .= $q->end_html();
 return $output;
   }

   sub showdates {
 my $self = shift;
  #Get CGI query object
 my $q = $self->query();
 my $app = $q->param("app");
 my $tdir =$q->param("tdir");
 my $yrs =$q->param("yr");
 my $cdir = $tdir. "\\\\" . $app . "\\\\" . $yrs;
 opendir(SMD,$cdir) || die "Failed to open Sysmon DB: $!, error in
$cdir";
 my @yrs;
 @yrs = grep {$_ !~ m/^\.{1,2}$/} readdir(SMD);
 closedir(SMD);
 my $output = '';
 $output .= $q->start_html(-title => 'Sysmon Database');
 $output .= $q->blockquote("Selected Environment : $app");
 $output .= $q->blockquote("Selected year : $yrs");
 $output .= $q->start_form();
 $output .= $q->blockquote("Select Date : ", $q->popup_menu(-name=>
'dts', -values =>\@yrs));
 $output .= $q->hidden(-name => 'rm', -value => 'mode4');
 $output .= $q->hidden(-name => 'tdir', -value => $tdir );
 $output .= $q->hidden(-name => 'app', -value => $app );
 $output .= $q->hidden(-name => 'yrs', -value => $yrs );
 $output .= $q->submit("Select Year");
 $output .= $q->end_form();
 $output .= $q->end_html();
 return $output;
   }

sub showdetails {

 my $self = shift;
  #Get CGI query object
 my $q = $self->query();
 my $app = $q->param("app");
 my $tdir =$q->param("tdir");
 my $yrs =$q->param("yr");
 my $dts =$q->param("dts");
 my $output = '';
 $output .= $q->start_html(-title => 'Sysmon Database');
 $output .= $q->blockquote("Selected Environment : $app");
 $output .= $q->blockquote("Selected year : $yrs");
 $output .= $q->blockquote("Selected date time : $dts");
 $output .= $q->start_form();
 $output .= $q->hidden(-name => 'rm', -value => 'mode1');
 $output .= $q->submit("Start Again");
 $output .= $q->end_form();
 $output .= $q->end_html();
 return $output;


}

1;

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]






---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]