Chapter 11
# view a message
sub read {
  my $self = shift;
  my $query = $self >query();
  my $output;
  # ...
  return $output;
}
# show edit screen with blank entry
sub new_message {
   my $self = shift;
   return $self >_edit();
}
# show edit screen with message quoted
sub reply {
  my $self = shift;
  my $query = $self >query;
  my $reply_id = $query >param( reply_id );
  return $self >_edit(reply_to => $reply_id); 
}
# private method to show edit screen for new_message and reply
sub _edit {
  my $self = shift;
  my $query = $self >query();
  my $output;
  # ...  return $output;
}
1;
Listing 11 2. bbs.cgi, the BBS Stub Script
#!/usr/bin/perl
use lib  . ;  # load BBS.pm from the current directory
use BBS;
# instantiate the BBS application object and run it
my $bbs = BBS >new();
$bbs >run();
260






footer




 

 

 

 

 Home | About Us | Network | Services | Support | FAQ | Control Panel | Order Online | Sitemap | Contact

web hosting perl

 

Our partners: PHP: Hypertext Preprocessor Best Web Hosting Java Web Hosting Inexpensive Web Hosting  Jsp Web Hosting

Cheapest Web Hosting Jsp Hosting Cheap Hosting

Visionwebhosting.net Business web hosting division of Web Design Plus. All rights reserved