version 1.3, 1999/10/14 18:47:01
|
version 1.5, 1999/12/16 22:08:57
|
Line 327 sub ViewProblem {
|
Line 327 sub ViewProblem {
|
$hidebutton = &UnHideButtonHTML; |
$hidebutton = &UnHideButtonHTML; |
$messagenote = "Hidden by $hiddenuser on $hiddendate at $hiddentime from $hiddenaddr"; |
$messagenote = "Hidden by $hiddenuser on $hiddendate at $hiddentime from $hiddenaddr"; |
} |
} |
$message =~ s/</</g; |
# $message =~ s/</</g; |
$message =~ s/>/>/g; |
# $message =~ s/>/>/g; |
&ViewProblemGutsHTML; |
&ViewProblemGutsHTML; |
} |
} |
} |
} |
Line 349 sub ViewProblem {
|
Line 349 sub ViewProblem {
|
} |
} |
|
|
sub ViewInfoFile { |
sub ViewInfoFile { |
|
&Log("InfoFile"); |
open(INFOFILE,"$capadir/$class/discussion/$file"); |
open(INFOFILE,"$capadir/$class/discussion/$file"); |
@file = <INFOFILE>; |
@file = <INFOFILE>; |
closedir(INFOFILE); |
closedir(INFOFILE); |
Line 582 sub WriteMsg {
|
Line 583 sub WriteMsg {
|
# add sr to grab e-mail address of user |
# add sr to grab e-mail address of user |
|
|
$message = $form{'message'}; |
$message = $form{'message'}; |
$message =~ s/\n\r\n/<p>/g; |
$message =~ s/</</g; |
|
$message =~ s/>/>/g; |
|
$message =~ s/((\n\r)|(\n))\n/<p>/g; |
$message =~ s/\n/<br>/g; |
$message =~ s/\n/<br>/g; |
|
|
# check if posted anonymously |
# check if posted anonymously |
Line 847 sub Log {
|
Line 850 sub Log {
|
|
|
&Lock("lock.file"); |
&Lock("lock.file"); |
open(LOG,">>$capadir/$class/discussion/logs/access.log"); |
open(LOG,">>$capadir/$class/discussion/logs/access.log"); |
print LOG "$snum|$capaid|$username|$email|$logmsg|$setid|$probnum|$HyphenDate|$Time\n"; |
print LOG "$snum|$capaid|$username|$email|$logmsg|$setid|$probnum|$HyphenDate|$Time|$file\n"; |
close(LOG); |
close(LOG); |
&Unlock("lock.file"); |
&Unlock("lock.file"); |
} |
} |