CGI::Application - Kwiki diffs

#!E:/Perl/bin/perl.exe

#

#########################

## Author: Sopan Shewale

### This script is created for giving demo on click count.

## The Script is support to display increse/decrease click's, handles back button of browser, does not handle reload stuff.

## also it's based on sessions.

########################

use strict;

use warnings;

use CGI;

use CGI::Session;

use CGI::Cookie;

my $q = new CGI();

my $sessionid = $q->cookie("CGISESSID") || undef;

my $session = new CGI::Session(undef, $sessionid, {Directory=>'/tmp'});

$sessionid = $session->id();

my $cookie = new CGI::Cookie(-name=>'CGISESSID', -value=>$sessionid, -path=>"/");

print $q->header('text/html', -cookie=>$cookie);

print $q->start_html("Welcome to Click Count Demo");

print "<h1>Welcome to Click Count Demo</h1>";

my $count = $session->param('count'); ## count-is click count variable

if(!defined($count)) { $session->param('count', 0); $count=0;} ### if session is first time created, set count=0

$session->param('count', $count);

$count = $session->param('count');

#print "<h1>The Click Count is: $count \n";

## Form stuff

print $q->startform(-method=>'POST');

print $q->submit( -name=>"Increase", -value=>'Increase1');

print $q->submit( -name=>"Decrease", -value=>'Decrease1');

print $q->endform();

## Which button is being pressed

my $which_button = $q->param('Increase');

if(defined ($which_button)) {

print "Increase pressed";

$count = increase_count($count); ## Increase the count since increase button is clicked

$session->param('count', $count);

}else {

$which_button=$q->param('Decrease');

if(defined($which_button)){

print "Decrease pressed";

$count = decrease_count($count); ## Decrease the count since decrease button is clicked

$session->param('count', $count);

}

else {print "You have not pressed any button, seems you are typing/re-typing the same URL"; } }

$count = $session->param('count');

print "<h1>The Click Count is: $count \n";

print $q->end_html();

## increases the count by 1

sub increase_count {

my $number = shift;

$number = $number +1;

return $number;

}

## decreases the count by 1

sub decrease_count {

my $number = shift;

$number = $number -1;

return $number;

}

Perl Design Patterns (Diff of Revision 2)