#!/usr/bin/perl require "cgi-lib.pl"; MAIN: { if (&ReadParse(*input)) {&ProcessForm;} else {&ShowForm;} } # end of MAIN # ************** sub ShowForm { # Display the initial form print &PrintHeader; print < Netiquette Rules

Netiquette Rules Selection

Purpose:

The purpose of this exercise is twofold:

  1. To provide feedback on the class understanding of the ethics of Internet interaction, and to share these understandings with fellow students, and
  2. To provide a democratic means of choosing the rules for an Internet experience.

Time: Action

Individuals will make their choice of the three most important rules for participants in the Internet experience. Each person fills in sheet 1.

Each group will meet together, select a leader, and chose four most important rules. The leader fills in sheet 2.

The class instructor will now allow each group in turn to add one rule to the collection, filling in the form below. The password will be provided to the instructor.

This process involves discussion -- It is suggested you review the guidelines for discussion included in this set of notes.

The final choices of criteria for judging individual presentations will be posted on the WWW as soon as possible.

INDIVIDUAL RULES
 
 
 

GROUP SELECTION
 
 
 
 

CLASS SELECTION
 
 
 
 
 
 
 
 

CLASS CRITERIA

Enter password:   Enter date (YY/MM/DD):   Enter section number:

   

Click here to see the last set of results.

Last updated 99/10/13
© J.A.N. Lee, 1995, 1996, 1997, 1999.

STUFF print &HtmlBot; } # end of ShowForm # ******************** sub ProcessForm { print &PrintHeader; print &HtmlTop("Netiquette Rules Section $input{'section'}"); if ($input{'pwd'} ne "babbage") {# check password print "

UNAUTHORIZED ENTRY, TRY AGAIN

" } else # show new results on web { print <

CLASS RULES Section $input{'section'}
$input{'rule1'}
$input{'rule2'}
$input{'rule3'}
$input{'rule4'}
$input{'rule5'}
$input{'rule6'}
$input{'rule7'}
$input{'rule8'}

STUFF1 # Now save file of results as net.rulesX.html # create file name $outFile = "../lib/Netiquette/net.rules$input{'section'}.html"; #print ("output file is ", $outFile, "

"); open (resultFile, ">$outFile"); #print(resultFile &PrintHeader); print(resultFile "\n"); print(resultFile "Netiquette Rules Group $input{'section'}\n"); print(resultFile "\n"); print(resultFile "

Netiquette Rules Group $input{'section'}

\n"); print(resultFile "

\n"); print(resultFile "\n"); print(resultFile "\n"); print(resultFile "\n"); print(resultFile "\n"); print(resultFile "\n"); print(resultFile "\n"); print(resultFile "\n"); print(resultFile "\n"); print(resultFile ""); print(resultFile "

CLASS RULES

$input{'rule1'}
$input{'rule2'}
$input{'rule3'}
$input{'rule4'}
$input{'rule5'}
$input{'rule6'}
$input{'rule7'}
$input{'rule8'}

\n"); print(resultFile "

\n"); print(resultFile "Last updated $input{'date'}

\n"); print(resultFile "\n"); print(resultFile ""); close(resultFile); #print "

File saved

"; print &HtmlBot } # end of else part } # end of ProcessForm