$FORM{'Character'}

#!/usr/bin/perl -T # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs){ ($name, $value) = split(/=/, $pair); $value =~ s/%0D%0A\./%0D%0A/g; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } if ( $FORM{'Color-bg'} eq "" ){ $Color{"bg"} = "black"; }else{ $Color{"bg"} = $FORM{'Color-bg'}; } if ( $FORM{'Color-text'} eq "" ){ $Color{"text"} = "white"; }else{ $Color{"text"} = $FORM{'Color-text'}; } if ( $FORM{'Color-dataText'} eq "" ){ $Color{"dataText"} = "6699cc"; }else{ $Color{"dataText"} = $FORM{'Color-dataText'}; } if ( $FORM{'Color-header'} eq "" ){ $Color{"header"} = "teal"; }else{ $Color{"header"} = $FORM{'Color-header'}; } if ( $FORM{'Color-link'} eq "" ){ $Color{"link"} = "pink"; }else{ $Color{"link"} = $FORM{'Color-link'}; } if ( $FORM{'Color-vlink'} eq "" ){ $Color{"vlink"} = "cyan"; }else{ $Color{"vlink"} = $FORM{'Color-vlink'}; } if ( $FORM{'Color-title'} eq "" ){ $Color{"title"} = "teal"; }else{ $Color{"title"} = $FORM{'Color-title'}; } print "Content-type:text/html\n\n"; # .............................. HTML start ............................................. #------------------------------ start large print block ------------------------------ print " $FORM{'Character'} $FORM{'Character'} / played by $FORM{'Player'}

Str $FORM{'Str'}

Dex $FORM{'Dex'}

End $FORM{'End'}

Int $FORM{'Int'}

Edu $FORM{'Edu'}

Soc $FORM{'Soc'}

Enc $FORM{'Enc'}

Chr $FORM{'Chr'}

Will $FORM{'Will'}

Char $FORM{'Char'}

Ego $FORM{'Ego'}

Skills:

"; # ------------------------------ end large print block ------------------------------ for ( $i = 1; $i <= 9; $i++ ){ $skill = "Skill-0$i"; $skillLevel = "SL-0$i"; if ( $FORM{$skill} ne "" ){ print " \n"; } # endif skill exists } # endfor for ( $i = 10; $i <= 20; $i++ ){ $skill = "Skill-$i"; $skillLevel = "SL-$i"; if ( $FORM{$skill} ne "" ){ print " \n"; } # endif skill exists } # endfor # ----------------------------------- print "
$FORM{$skill} $FORM{$skillLevel}
$FORM{$skill} $FORM{$skillLevel}

Weapon Skills:

"; # ----------------------------------- for ( $i = 1; $i <= 9; $i++ ){ $skill = "WeapSkill-0$i"; $skillLevel = "WSL-0$i"; if ( $FORM{$skill} ne "" ){ print " \n"; } # endif skill exists } # endfor for ( $i = 10; $i <= 20; $i++ ){ $skill = "WeapSkill-$i"; $skillLevel = "WSL-$i"; if ( $FORM{$skill} ne "" ){ print " \n"; } # endif skill exists } # endfor # ------------------------------ start large print block ------------------------------ print "
$FORM{$skill} $FORM{$skillLevel}
$FORM{$skill} $FORM{$skillLevel}

"; if ( $FORM{'ImageFile'} ne "" ){ print "\n"; } print "
\n Physical Description:
\n $FORM{'Age'} year old, $FORM{'Species'} $FORM{'Gender'}
Height: $FORM{'HeightNum'} ($FORM{'HeightDesc'})
Weight: $FORM{'WeightNum'} ($FORM{'WeightDesc'})
$FORM{'Eyes'} Eyes, $FORM{'Skin'} Skin
$FORM{'HairStyle'}, $FORM{'Hair'} Hair, and facial hair of: $FORM{'FacialHair'}
\n
Dress style (poorly -> well): $FORM{'Dress'}
Keywords: $FORM{'PhysKeywords'} Physical Marks: $FORM{'PhysMarks'}

Notes: $FORM{'PhysNotes'}
\n Personality:
\n Will: $FORM{'Will'}
Introvert/Extrovert: $FORM{'Introversion'}
Confidence: $FORM{'Confidence'}
Optimism: $FORM{'Optimism'}
Energy: $FORM{'Energy'}
Organization: $FORM{'Organize'}
Personality Keywords: $FORM{'PsychKeywords'} Personality Features: $FORM{'PsychMarks'}
Notes: $FORM{'PsychNotes'}

\n Service History:
\n Service: $FORM{'Service'} For $FORM{'Terms'} terms.
Achichieving a rank of: $FORM{'Rank'}
Earned the following medals:
"; # ------------------------------ end large print block ------------------------------ for ( $i = 1; $i <= 5; $i++ ){ $medal = "Medal-$i"; if ( $FORM{$medal} ne "" ){ print " $FORM{$medal}
\n"; } # endif skill exists } # endfor # ------------------------------ start large print block ------------------------------ print " Other medals or distinctions: $FORM{'MedalsOther'}

\n Other:
\n Skills comments: $FORM{'SkillNotes'}
Weapon Skills comments: $FORM{'WeapSkillNotes'}

\n Histories:
\n Before service:
$FORM{'History'}
Service history:
$FORM{'ServiceHistory'}
Service notes:
$FORM{'ServiceNotes'}

\n"; print " \n"; print "\n"; print "\n";