#!/usr/bin/perl #------------------------------------ # Author: Heather Uthoff # Creation Date: 10/13/2013 # Doc Version: 1.0 # Website URL: http://webtrain.austincc.edu/~huthoff/cgi-bin/perlassign.cgi # Additional Comments: #-------------------------------------- $| = 1; use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n"; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs= split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $DATA{$name} = $value; } $first = $DATA{'first'}; $last = $DATA{'last'}; $street = $DATA{'street'}; $extra = $DATA{'extra'}; if ($extra ne ""){ $extra = $extra."
"; } $city = $DATA{'city'}; $state = $DATA{'state'}; $zip = $DATA{'zip'}; $first = $DATA{'first'}; $hear = $DATA{'hear'}; $rating = $DATA{'rating'}; if ($rating eq "") { $rating = "Zero";} $comments= $DATA{'comments'}; if (index($comments, "Type Here") != -1) { $comments = "";} if ($DATA{'webdesign'} ne ""){ $interest = $DATA{'webdesign'};} if ($DATA{'webserver'} ne ""){ if ($interest ne ""){ $interest = $interest.", "; } $interest = $interest.$DATA{'webserver'};} if ($DATA{'studywebdesign'} ne ""){ if ($interest ne ""){ $interest = $interest.", "; } $interest = $interest.$DATA{'studywebdesign'};} if ($DATA{'jobwebdesign'} ne ""){ if ($interest ne ""){ $interest = $interest.", "; } $interest = $interest.$DATA{'jobwebdesign'};} if ($DATA{'studywebserver'} ne ""){ if ($interest ne ""){ $interest = $interest.", "; } $interest = $interest.$DATA{'studywebserver'};} if ($DATA{'jobwebserver'} ne ""){ if ($interest ne ""){ $interest = $interest.", "; } $interest = $interest.$DATA{'jobwebserver'};} print qq~ Perl Assignment Thank You Cascading Style Sheets

HEATHER UTHOFF

ABOUT    COURSES    PORTFOLIO    RESUME   

Assignment: Create a Survey with a Corresponding CGI script written in Perl

Thank You for Your Response!

You submitted the following:

$first $last
$street
$extra $city $state $zip

You heard about us through $hear
Rating: $rating out of Five Possible

You are currently involved in $interest
Additional Comments: $comments

~;