File: example1.pm

package info (click to toggle)
libcgi-xmlapplication-perl 1.1.5-2
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 196 kB
  • sloc: perl: 522; makefile: 2
file content (67 lines) | stat: -rw-r--r-- 2,189 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
# this is the applcation class

# this example is an example for a CGI prototype. stylesheetnames and
# all events are allready defined, but not fully implemented. This is
# done to demonstrate, the internal error handling, if the requested
# data cannot be found.

# the class only defines only the default event function. this is ok,
# if no functionality on startup or exit is required.

package example1;

use vars qw( @ISA @HANLDER );
use CGI::XMLApplication;

@ISA     = qw(CGI::XMLApplication);

# we define two handler here but below there is only a single explicit
# handler implemented. if you call the coma event the script will tell
# the event is not yet defined.
#
# if you have several application layer, that all define some events,
# you should write the function like this:
# sub registerEvents { ( $_[0]->SUPER::registerEvents(), @eventlist ); }
# to ashure, no events get lost during initialization.
sub registerEvents    { qw(submit coma); } # the handler list

# a rather simple example :)
# this function is called by the serialization function. As shown this
# function should return the full path and filename. otherwise the
# script will check, if the stylesheets are in the local directory.
sub selectStylesheet  {
  my ( $self , $ctxt ) = @_;
  my $path_to_style = 'your/path/';
  return $path_to_style . qw( bsp1.xsl bsp2.xsl )[$ctxt{-stylesheetid}];
}

# notice, that we do not implement getDOM!
# this will cause CGI::XMLApplication to create an empty document
# so the transformation will be done anyway

# implicit handler
# no init and exit needed here :)

# This event is called, if no other event can be found in the
# parameter list.
sub event_default {
  my $self = shift;
  my $ctxt = shift;
  warn "test->default\n";
  $ctxt->{-stylesheetid} = 1;
  return 0;
}

# explicit handler
# this handler is called if the param list contains 'submit=abc' or
# 'submit.x=123'. The script does not check the value of the event, at the
# current state. commonly this is not neccesary anyway since designers
# decide to change values all the time :)
sub event_submit {
  my $self = shift;
  warn "test->submit\n";
  $ctxt->{-stylesheetid} = 2;
  return 0;
}

1;