[prev in list] [next in list] [prev in thread] [next in thread] 

List:       cgiapp
Subject:    Can't pass mode2
From:       "Sabherwal, Balvinder (MBS)"
Date:       2002-01-18 16:59:26
[Download RAW message or body]

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;

[prev in list] [next in list] [prev in thread] [next in thread]