#!/usr/local/bin/perl require 'cgi_lib.pl'; $output_file = "/net/www1/servers/current/cgi-bin/Courses/COMP210/02fall/demographics.data"; &ReadParse(); print &PrintHeader(); printf < Comp210 Online Lab Enrollment

Comp210 Online Lab Enrollment

EOF # %majorFix = ( # "CS", "COMP", # "EE", "ELEC", # "ELE", "ELEC", # "Undeclared", "Undeclared", # "Other (please specify)", "Other" ); # $in{"Major"} = $majorFix{$in{"Major"}} if $majorFix{$in{"Major"}}; # $in{"Major"} = $in{"AltMajor"} if $in{"Major"} eq "Other"; $in{"Major"} = $in{"MajorGroup"} if $in{"MajorGroup"} eq "COMP"; $in{"MajorGroup"} = "Group III" if $in{"MajorGroup"} eq "COMP"; $in{"Major"} = $in{"MajorGroup"} if $in{"MajorGroup"} eq "ELEC"; $in{"MajorGroup"} = "Group III" if $in{"MajorGroup"} eq "ELEC"; $in{"Major"} = $in{"MajorGroup"} if $in{"MajorGroup"} eq "CAAM"; $in{"MajorGroup"} = "Group III" if $in{"MajorGroup"} eq "CAAM"; $in{"PrefEmail"} = $in{"Acct"} . "\@rice.edu" if $in{"PrefEmail"} eq ""; $in{"HomePage"} = "" if $in{"HomePage"} =~ /youracct/; $out = join("|", ($in{"Acct"}, $in{"PrefEmail"}, $in{"FirstName"}, $in{"LastName"}, $in{"GradePW"}, $in{"ClassYear"}, $in{"Major_status"}, $in{"MajorGroup"}, $in{"Major"}, $in{"Enrollment"}, $in{"Lab_choice1"}, $in{"Lab_choice2"}, $in{"CompTaken"}, $in{"HomePage"}, $in{"ResCollege"}, $in{"Favorite_cat"}, $in{"Favorite_item"}, )); printf <$in{"PrefEmail"}. We look forward to a fun semester! EOF open(REG, ">>$output_file") || printf "Trouble writing output to log: $!\n"; print REG "$out\n"; close REG; # printf("Output successfully written.\n");