Re^2: browser interface for local script


No such thing as a small change
	PerlMonks

Re^2: browser interface for local script

by blueberryCoffee (Scribe)

on Oct 04, 2006 at 00:08 UTC ( [id://576212]=note: print w/replies, xml )

Need Help??

in reply to Re: browser interface for local script
in thread browser interface for local script

Thanks, I used the following code:

 sub handle_request {
     my ($self, $cgi) = @_;
     
     my $action = $cgi->path_info();
     $action =~ s|^/||;
     
     # ensure action exists or set it to default
     if(! $self->can($action)) {
         $action = "home";
     }
     $self->$action($self, $cgi);
     #print $out Dumper(%ENV);
     

 }
[download]

It is pretty neat. This makes it easy to use the MVC design pattern. I use HTML::Template to print all the pages out.