#!/usr/bin/perl
use Getopt::Std;
my $opt_string = 't:m:M:b:B:f:F:';
getopts( "$opt_string", \%opt );
$title = $opt{t};
$message =   $opt{m};
$message2 =   $opt{M};
$field1 =  $opt{f};
$field2 =  $opt{F};
$button1 =   $opt{b};
$button2 =   $opt{B};
$starta = '+-[' ;
$side = "+";
$enda = "]" ;
$fillera = '-';
$endb = '+';
$fillerb = $fillera;
if (length($message)>length($message2)){
        $fullsize = length ($message);
        for ($count=length($message2); $count<$fullsize; $count++)
        {
                $message2 = $message2 . " ";
        }
}else{
$fullsize = (length ($message2));
$fullsize = length ($message2);
for ($count=length($message); $count<$fullsize; $count++)
{
$message = $message . " ";
}
}
$fillings = 1+length ($starta)+length ($enda)+length ($endb)+length ($title) -4;
for ($count=$fillings; $count<$fullsize; $count++)
{
$fillerb = $fillerb . $fillera;
}
$top = $starta . $title . $enda . $fillerb . $endb;
$one = $side . " " . $message . " " . $side;
if ($button2) {
$bfill = " ";
for ($count = 5 + length($button1)+length($button2); $count<$fullsize; $count++)
{
$bfill = $bfill . " ";
}
$buttons = $side . $bfill . "[" . $button1 . "] [" . $button2 . "] " . $side
}else{
$bfill = " ";
for ($count = 2 + length($button1); $count<$fullsize; $count++)
{
$bfill = $bfill . " ";
}
$buttons = $side . $bfill . "[" . $button1 . "] " . $side
}
$blfill = " ";
for ($count = -1; $count<$fullsize; $count++)
{
$blfill = $blfill . " ";
}
$bl = $side . $blfill . $side;

$elfill = "-";
for ($count = -1; $count<$fullsize; $count++)
{
$elfill = $elfill . "-";
}
$endl = $side . $elfill . $side;
if ($field1){
$fline1filla = " ";
for ($count = 3 + length($field1); $count<$fullsize; $count++)
{
$fline1filla = $fline1filla . " ";
}
$fline1 = $side . " " . $field1 . "[" . $fline1filla . "]" . " " . $side;
}
if ($field2){
$fline2filla = " ";
for ($count = 3 + length($field2); $count<$fullsize; $count++)
{
$fline2filla = $fline2filla . " ";
}
$fline2 = $side . " " . $field2 . "[" . $fline2filla . "]" . " " . $side;
}
print "$top\n";
print "$bl\n";
print "$one\n";
$two = $side . " " . $message2 . " " . $side;
print "$two\n";
print "$bl\n";
if ($field1){ print "$fline1\n"; }
if ($field2){ print "$fline2\n"; }
print "$bl\n";
print "$buttons\n";
print "$endl\n";