%html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1, BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1); $message = $form{'message'}; $message =~ s/((\n\r)|(\n))\n/

/g; $message =~ s/\n/
/g; $message =~ s/\<(\/?\s*(\w+)[^\>\<]*)/ {($html{uc($2)}&(length($1)<1000))?"\<$1":"\<$1"}/ge; $message =~ s/(\]*)\>/ {($html{uc($2)}&(length($1)<1000))?"$1\>":"$1\>"}/ge; # $message =~ s//>/g; # check if posted anonymously if($form{'ANONYMOUS'} eq "yes") { $username = "Anonymous|$username"; } open (MSG,">$filename"); print MSG "$username\n"; print MSG "$HyphenDate\n"; print MSG "$Time\n"; print MSG "$subject\n"; print MSG "$email\n"; print MSG "$message\n"; print MSG "public||||\n"; close(MSG); } sub GetTeacherInfo { local($capa5dir,$classname,$tdir,@classconf); # open/read class.conf file open (CLASSCONF,"$capabin/class.conf"); @classconf = ; close(CLASSCONF); $found eq "no"; foreach $line(@classconf) { ($classname,$capa5dir,$tdir) = split(/[\t\ ]+/,$line); if($classname eq $class) { $teachdir = $tdir; $capadir = $capa5dir; $found = "yes"; $cgidirurl = join "/", $capasbin,$teachdir; } } if($found eq "no") { &InvalidVarsHTML; } } sub CheckAdmin { local($asection,@adminsections,$line,@capaconfig,$command,$value, $adminsection,@classl,$course,$coursenum,$section,$stunum,$a); $mode = shift(@_); if ($validadmin eq "unchecked") { $validadmin = "no"; # open 'capa.config' file (for admin section read) open(CAPACONFIG,"$capadir/$class/capa.config"); @capaconfig = ; close(CAPACONFIG); foreach $line(@capaconfig) { chop $line; ($command,$value) = split(/\ =\ /,$line); if($command eq "admin_section") { $adminsection = $value; last; } } if ($debug) { print "Admin Sections: ".$adminsection;} @adminsections = split(/\,/,$adminsection); for ($asection=0; $asection <= $#adminsections; $asection++) { $adminsections[$asection]=&RemZero($adminsections[$asection]) } # open 'classl' file open(CLASSL,"$capadir/$class/classl"); @classl = ; close(CLASSL); $snum =~ tr/a-z/A-Z/; LINE: foreach $line(@classl) { $section= substr $line, 10, 3; $stunum= substr $line, 14, 9; $stunum =~ tr/a-z/A-Z/; if ( $stunum ne $snum ) { next LINE;} $section = &RemZero($section); if ($debug) {print "
".$stunum."Is in section:".$section."
";} foreach $asection(@adminsections) { if($section eq $asection ) { $validadmin = "yes"; last LINE; } } } } if($validadmin eq "no" && $mode eq "kill") { &NotAdminHTML; } } sub BanUser { local (@capaconfig,$line,$command,$value,$ban,@banned,$result); $result = 0; open(CAPACONFIG,"$capadir/$class/capa.config"); @capaconfig = ; close(CAPACONFIG); foreach $line(@capaconfig) { chop $line; ($command,$value) = split(/\ =\ /,$line); if($command eq "banned_users") { $ban = $value; last; } } if ($debug) { print "Banned Users: ".$ban } @banned = split(/\,/,$ban); $snum =~ tr/a-x/A-Z/; foreach $ban (@banned) { if ($debug) {print $ban . "is Banned
";} $ban =~ tr/a-z/A-Z/; $ban =~ tr/\ //d; if ( $ban eq $snum) { &BannedMessageHTML; $result=1 } } return $result } sub ValidateUser { local(@allcapaid,@classl,$line); open (CLASSL,"$capadir/$class/classl"); @classl = ; close(CLASSL); $valid = "no"; foreach $line(@classl) { if(substr($line,15,8) eq substr($snum,1,8)) { $valid = yes; } } if($valid eq "no") { &InvalidVarsHTML; } # check w/ allcapaid program @allcapaid = `allcapaid -s $setid -e $setid -stu $snum -c $capadir/$class -i -checkopen`; chop $allcapaid[2]; chop $allcapaid[2]; if ($debug) {print "capaid:" . $allcapaid[2] . "
\n";} if($allcapaid[2] ne $capaid) { if ($allcapaid[2] =~ /Open/) { &NotOpen; exit; } if($action ne "newset") { &BadPassHTML; exit; } #&NewSet; } } sub NotOpen { &GetSetList; &SetListHeader; &ViewSetTitleHTML; print < NotOpen2 } sub UserInfo { local($line,@classl,$last,$first,$middle); open (CLASSL,"$capadir/$class/classl"); @classl = ; close(CLASSL); foreach $line(@classl) { if(substr($line,15,8) eq substr($snum,1,8)) { $username = substr($line,24,36); $email = substr($line,60,45); } } ($last, $first, $middle) = split(/\ +/,$username); chop $last; $username = "$first $last"; $email =~ s/\ //g; chop $email; } sub MaxProbs { open (SETRECORD,"$capadir/$class/records/set$setid.db"); $setrecord = ; close(SETRECORD); chop $setrecord; return $setrecord; } sub ProblemJumpBox { $pdprob = ""; } sub SetJumpBox { &GetSetList; &SetListHeader; } sub AddZero { $string = shift(@_); while(length($string) < 6) { $string = "0$string"; } return $string; } sub RemZero { $string = shift(@_); $string =~ s/^0*//g; return $string; } sub FormatDate { $string = shift(@_); $month = substr($string,0,2); $day = substr($string,2,2); $year = substr($string,4,4); $string = "$month-$day-$year"; return $string; } #################### ## Get SubRoutine ## #################### sub form_info { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); if ($name eq "message") {$allow_html=1;} else {$allow_html=0;} # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; if ($allow_html != 1) { $value =~ s/<([^>]|\n)*>//g; } $form{$name} = $value; } } ################## ## Date/Time sr ## ################## sub GetDateTime { ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time); $mon++; $year=$year+1900; if ($hour < 12) { $AMPM = "AM"; } if ($hour > 12) { $hour = $hour - 12; $AMPM = "PM"; } if ($hour == 12) { $AMPM = "PM"; } if ($hour == 0) { $hour = "12"; } $min = sprintf ("%2d", $min); $min =~tr/ /0/; $mon = sprintf ("%2d", $mon); $mon =~tr/ /0/; $mday = sprintf ("%2d", $mday); $mday =~tr/ /0/; $HyphenDate = ("$mon" . "-" . "$mday" . "-" . "$year"); $RunonDate = ("$mon$mday$year"); $Time = ("$hour" . ":" . "$min" . " " . "$AMPM"); } ######################## ## Logging Subroutine ## ######################## sub Log { $logmsg = shift(@_); &GetDateTime; &Lock("lock.file"); open(LOG,">>$capadir/$class/discussion/logs/access.log"); print LOG "$snum|$capaid|$username|$email|$logmsg|$setid|$probnum|$HyphenDate|$Time|$file\n"; close(LOG); &Unlock("lock.file"); } ############################ ## Lock/Unlock Subroutine ## ############################ sub Lock { local ($lockname) = @_; local ($endtime); $endtime = 15; $endtime = time + $endtime; while (-e $lockname && time < $endtime) { open (LOCKFILE, ">$lockname"); } sub Unlock { local ($lockname) = @_; close (LOCKFILE); unlink ($lockname); } } ###################### ## HTML Subroutines ## ###################### ## CapaDiscuss HTML Subroutines # capadiscuss_html ## end capadiscuss