index.html

Last Year's Standings

Bowling Lane

Team

Scoresheet

Welcome to the Central Illinois bowling Club site. We meet the third Saturday of the month from September through March. We decide on a restaurant for dinner, the meet at a bowling alley. There are four bowling centers we use and use the centers on a rotating basis. We welcome persons of all ages who want to:

A group who wants to build relationships
A fellowship of those who like bowling or want to learn about the sport
Engage in a healthy hobby

Provide your name and phone number if you are interested. The coordinator (me) will contact you soon.

##

##

#!/usr/bin/perl -wT
use strict;
use CGI;

my $obj = new CGI;
my $datastring ="";

# read information from form
my $fname = $obj->param( "fname" );
my $lname = $obj->param( "lname" );
my $gender = $obj->param( "gender" );
my $age = $obj->param( "age" );
my $Skill = $obj->param( "Skill" );
my $sport2 = "";
foreach my $sport (@sport) {
   $sport2 .= "$sport ";
}

# Save the data into a text file

$datastring = "Saved Data\n\nFirst name: $fname\nLast name: $lname\nGender: $gender\nAge: $age\nSkill: $Skill\nSports: $sport2\n\n";
open(OUTDATA, ">>", "data.txt") or die "Error in opening file data.txt";
print OUTDATA $datastring;
close(OUTDATA);

#Send the info back
print $obj->header( "text/html" ),
        $obj->start_html(
                -title    => "Form Data",
                -topmargin =>"0"
        ),
        $obj->h1("User information"),
        $obj->p("User name:  $fname"),
        $obj->p("Last name:  $lname");
	$obj->p("Gender:  $gender"),
        $obj->p("Age: $age"),
        $obj->p("Skil:  $skill"),
        $obj->p("Sports:  $sport2"),
        $obj->end_html;