Diff for /capa/capa51/Discuss/Ver1.3/Attic/capadiscuss between versions 1.3 and 1.5

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/</&lt;/g;  # $message =~ s/</&lt;/g;
  $message =~ s/>/&gt;/g;  # $message =~ s/>/&gt;/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/</&lt;/g;
     $message =~ s/>/&gt;/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");
 }  }

Removed from v.1.3  
changed lines
  Added in v.1.5


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>