Spellbooks.pl

#!/usr/bin/perl
use strict;
use warnings FATAL => qw( all );

use CGI::Simple;
use CGI::Carp qw(fatalsToBrowser);
use File::Basename;
use FindBin qw($Bin);
use HTML::Entities qw(encode_entities);

use lib "$Bin/../../files/lib";
use Page::Base qw(page);
use Page::File qw(file_directory file_list file_menu);
use Page::HTML qw(section paragraph list);
use Page::Convert qw(filify);
use Page::RolePlaying::Spell::Book qw(spellbook);

my $directory = file_directory('Role_playing/Player_characters/Spellbooks');
my @selects = file_list($directory, { 'sort' => 'name', 'text' => 1 });

my $cgi    = CGI::Simple->new;
my $select = encode_entities($cgi->param('spellbook'),'<>"');
my $head   = $select && grep(/\Q$select\E/, @selects) ? "$select\'s spellbook" : 'My characters\' spellbooks';
my $menu   = file_menu('spellbook', \@selects, $select);

page( 'heading' => $head, 'file menu' => $menu, 'code' => sub {
  if ($select && grep(/\Q$select\E/, @selects)) {
    my $spell_file = filify($select);
    my $spell_levels = spellbook("$directory/$spell_file.txt");
    for my $spell_level (@$spell_levels) {
      section(3, sub {
        list(5, 'u', @{$spell_level->{'list'}}) if $spell_level->{'list'};
        paragraph(5, $spell_level->{'paragraph'}) if $spell_level->{'paragraph'};
      }, { 'heading' => [2, $spell_level->{'heading'}] });
    }
  }
  else {
    section(3, sub {
      paragraph(5, "You can read the lists of spells in my characters' spellbooks.");
      list(5, 'u', $menu, { 'class' => 'three' });
    });
  }
});