#!/usr/bin/perl --
use strict;
use warnings;
Main( @ARGV );
exit( 0 );
sub Show_Red_HTML {
my( $query ) = @_;
my $dirname = '.';
my $js_includes = js_includes();
my $css_includes = stylesheet_includes();
my $title = "This is the redness";
my $drops = red_dropdown_files( $dirname );
my $body = red_form_html( $query, $drops );
return Show_HTML( "$css_includes $js_includes", $title, $body );
} ## end sub Show_Red_HTML
sub Show_HTML {
my( $head, $title, $body ) = @_;
my $header = common_body_header_html();
my $footer = common_body_footer_html();
return qq{
$title
$head
$header
$body
$footer
};
} ## end sub Show_HTML
sub red_dropdown_files {
my( $dirname ) = @_;
use Path::Tiny qw/ path cwd /;
use CGI qw/ escapeHTML /;
my @files = path( $dirname )->children;
my $ret = "";
for my $file ( @files ) {
$ret .= sprintf qq{\n},
escapeHTML( $file ), escapeHTML( $file );
}
return $ret;
} ## end sub red_dropdown_files