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