1: #!/usr/ucb/perl
2: #
3: # Ryan J. Shaltry
4: # tech4@msue.msu.edu
5: # Guy Albertelli
6: # albertel@msu.edu
7: #
8: # CAPA Discussion Forum
9: # version 1.3.0
10: # Copyright (C) 1992-2000 Michigan State University
11: #
12: # The CAPA system is free software; you can redistribute it and/or
13: # modify it under the terms of the GNU Library General Public License as
14: # published by the Free Software Foundation; either version 2 of the
15: # License, or (at your option) any later version.
16: #
17: # The CAPA system is distributed in the hope that it will be useful,
18: # but WITHOUT ANY WARRANTY; without even the implied warranty of
19: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20: # Library General Public License for more details.
21: #
22: # You should have received a copy of the GNU Library General Public
23: # License along with the CAPA system; see the file COPYING. If not,
24: # write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25: # Boston, MA 02111-1307, USA.
26: #
27: # As a special exception, you have permission to link this program
28: # with the TtH/TtM library and distribute executables, as long as you
29: # follow the requirements of the GNU GPL in regard to all of the
30: # software in the executable aside from TtH/TtM.
31:
32:
33: print "Content-type: text/html\n\n";
34:
35: use Benchmark;
36: $BenchmarkT0 = new Benchmark;
37: #require "capadiscuss.setup";
38: require "../capadiscuss_html";
39:
40: ################################################
41: ## Configuration - Change these appropriately ##
42: ################################################
43: $discussurl = "capadiscuss";
44: $capasbin = "/capa-bin";
45: use Cwd;
46: $capabin = cwd();
47: @capabinparts = split /\//, $capabin;
48: $capabin = join "/", @capabinparts[0..$#capabinparts-1];
49:
50: # capadiscuss.setup
51: $debug = 0;
52: ################################################
53: ## End Configuration ###########################
54: ################################################
55:
56: &form_info;
57:
58: $yp = "19";
59: $validadmin = "unchecked";
60:
61: # define variables
62: $class = $form{'CLASS'};
63: $snum = $form{'SNUM'};
64: $capaid = $form{'CAPAID'};
65: $setid = $form{'SETID'};
66: $action = $form{'ACTION'};
67: $file = $form{'FILE'};
68: $probnum = $form{'PROBNUM'};
69: $replynum = $form{'REPLYNUM'};
70: $psetid = $form{'PSETID'};
71: if ($snum eq "A12345678") {$debug=1;}
72: if ($snum eq "a12345678") {$debug=1;}
73: $debug=0;
74: if($psetid eq "") { $psetid = $setid; }
75: if ($debug) {print "GetTeacherInfo<BR>";$BenchmarkTa = new Benchmark;}
76: &GetTeacherInfo;
77: if($debug) {$BenchmarkTb = new Benchmark;print "<BR>",timestr(timediff($BenchmarkTb,$BenchmarkTa)),"\n";}
78:
79: # check if student is banned from forum
80: if ($debug) {print "BanUser<BR>";$BenchmarkTa = new Benchmark;}
81: if (&BanUser) {exit;}
82: if($debug) {$BenchmarkTb = new Benchmark;print "<BR>",timestr(timediff($BenchmarkTb,$BenchmarkTa)),"\n";}
83:
84: # check for valid studentnumber/capaid, an exit will occur here if the set wasn't open
85: if ($debug) {print "ValidateUser<BR>";$BenchmarkTa = new Benchmark;}
86: &ValidateUser;
87: if($debug) {$BenchmarkTb = new Benchmark;print "<BR>",timestr(timediff($BenchmarkTb,$BenchmarkTa)),"\n";}
88:
89: # grab username from student number
90: if ($debug) {print "UserInfo<BR>";$BenchmarkTa = new Benchmark;}
91: &UserInfo($snum);
92: if($debug) {$BenchmarkTb = new Benchmark;print "<BR>",timestr(timediff($BenchmarkTb,$BenchmarkTa)),"\n";}
93:
94: if ($debug) {print "GetDateTime<BR>";$BenchmarkTa = new Benchmark;}
95: &GetDateTime;
96: if($debug) {$BenchmarkTb = new Benchmark;print "<BR>",timestr(timediff($BenchmarkTb,$BenchmarkTa)),"\n";}
97:
98: if ($debug) {print $action . "<BR>";$BenchmarkTa = new Benchmark;}
99: # call appropriate sr
100: if($action eq "newset" ) { &NewSet; }
101: if($action eq "viewset" || $action eq "" ) { &ViewSet; }
102: if($action eq "viewproblem" ) { &ViewProblem; }
103: if($action eq "post" ) { &Post; }
104: if($action eq "postsubmit" ) { &PostSubmit; }
105: if($action eq "delmsgpre" ) { &DelMsgPre; }
106: if($action eq "delmsg" ) { &DelMsg; }
107: if($action eq "hidemsgpre" ) { &HideMsgPre; }
108: if($action eq "hidemsg" ) { &HideMsg; }
109: if($action eq "unhidemsgpre" ) { &UnHideMsgPre; }
110: if($action eq "unhidemsg" ) { &UnHideMsg; }
111:
112: if($action eq "admin" ) { &AdminMain; }
113: if($action eq "adminusersearch" ) { &AdminUserSearch; }
114: if($action eq "adminusersearchsubmit" ) { &AdminUserSearchSubmit; }
115:
116: if($action eq "viewinfofile" ) { &ViewInfoFile; }
117:
118: if($action eq "topmsg" ) { &TopMsg("top"); }
119: if($action eq "untopmsg" ) { &TopMsg(""); }
120: if($debug) {$BenchmarkTb = new Benchmark;print "<BR>",timestr(timediff($BenchmarkTb,$BenchmarkTa)),"\n";}
121:
122: $BenchmarkT1 = new Benchmark;
123: if($debug) { print "<BR>",timestr(timediff($BenchmarkT1,$BenchmarkT0)),"\n";}
124:
125: exit;
126:
127: #######################
128: ## Begin Subroutines ##
129: #######################
130: sub GetSetList {
131: opendir(DDIR,"$capadir/$class/discussion");
132: @sets = grep(/^[0-9]+$/,sort(readdir(DDIR)));
133: closedir(DDIR);
134: if ($debug) {print "<br> Sets:". @sets ."<BR>\n";}
135: }
136:
137: sub SetListHeader {
138: $pdset = "<select name=\"SETID\">\n";
139: foreach $setnum(@sets) {
140: $selected = "";
141: if($setnum eq $setid) { $selected = "selected"; }
142: $pdset .= "<option value=\"$setnum\" $selected>$setnum\n";
143: }
144: $pdset .= "</select>\n";
145: }
146:
147: sub GetInfoList {
148: local(@temp,@alldir,@setdir);
149: # if ($debug) {print "<br> GetInfoList <br>";}
150: opendir(DDIR,"$capadir/$class/discussion");
151: @alldir = sort(grep(/.info$/,readdir(DDIR)));
152: closedir(DDIR);
153:
154: opendir(FORUM,"$capadir/$class/discussion/$setid");
155: @setdir = sort(grep(/.info$/,readdir(FORUM)));
156: closedir(FORUM);
157:
158: foreach $file(@setdir) { @setdir2 = (@setdir2,"$setid/$file"); }
159: @infofiles = (@alldir,@setdir2);
160: $infostring = "";
161: # if ($debug) {print "<br> GetInfoList" . @infofiles."<br>";}
162: foreach $infofile(@infofiles) {
163: # if ($debug) {print "<br> GetInfoList" . $infofile."<br>";}
164: @temp = reverse split /\//, $infofile;
165: $infodesc = $temp[0];
166: $infodesc =~ s/.info//g;
167: $infodesc =~ s/_/ /g;
168: $infostring .= &InfoButtonHTML;
169: }
170: if ($infostring ne "") {
171: # $infostring = "</tr><tr>" . $infostring;
172: }
173: # if ($debug) {print "<br> GetInfoList" . $infostring."<br>";}
174: }
175:
176: sub NewSet {
177: &Log("NewSet");
178:
179: if($setid <= $psetid) { #grab capaid
180: if ($debug) {print "NewSet<BR>";$BenchmarkTa = new Benchmark;}
181: @allcapaid = `allcapaid -s $setid -e $setid -stu $snum -c $capadir/$class -i`;
182:
183: $capaid = $allcapaid[2];
184: chop $capaid;
185: chop $capaid;
186: &ViewSet;
187: if($debug) {$BenchmarkTb = new Benchmark;print "<BR>",timestr(timediff($BenchmarkTb,$BenchmarkTa)),"\n";}
188: return;
189: }
190:
191: if ($debug) { print "<br> GetSetList\n"; }
192: &GetSetList;
193: if ($debug) { print "<br> EndGetSetList\n"; }
194: &SetListHeader;
195: &NewSetHTML;
196: #exit;
197: }
198:
199: sub ViewSet {
200: local($hidden);
201: if ($debug) {print "InsideViewSet<BR>";$BenchmarkTa = new Benchmark;}
202: &Log("ViewSet");
203: &CheckAdmin;
204: $adminbutton = "";
205: if($validadmin eq "yes") {
206: $adminbutton = &AdminButtonHTML;
207: }
208:
209: $capasbin = "$capasbin/$teachdir/capasbin";
210: &SetJumpBox;
211: $backfunction="viewset";
212: &GetInfoList;
213:
214: opendir(FORUM,"$capadir/$class/discussion/$setid");
215: @dir = sort(readdir(FORUM));
216: closedir(FORUM);
217:
218: foreach $i(@dir) {
219: $probnum = &RemZero(substr($i,0,6));
220: $found[$probnum]++;
221: }
222: $maxprobs = &MaxProbs($setid);
223:
224: # split table (if more than 15 problems)
225: $bigtable = "no";
226: if($maxprobs > 5) {
227: $bigtable = "yes";
228: $col1size = int ($maxprobs / 2);
229: $col2size = $maxprobs - $col1size;
230: if($col1size < $col2size) {
231: $t = $col1size;
232: $col1size = $col2size;
233: $col2size = $t;
234: }
235: }
236: if($debug) {$BenchmarkTb = new Benchmark;print "<BR>2",timestr(timediff($BenchmarkTb,$BenchmarkTa)),"\n";}
237: &ViewSetTitleHTML;
238:
239: if($bigtable eq "no") { &ViewSetTopSmallHTML; }
240: else { &ViewSetTopBigHTML; }
241:
242: $col = 1;
243: for($probnum=1; $probnum<=$maxprobs; $probnum++) {
244: $hidden=0;
245: if($col eq "1" && $probnum > $col1size && $bigtable eq "yes") {
246: $col = 2;
247: &ViewSetEndColHTML;
248: &ViewSetTopSmallHTML;
249: }
250: if($found[$probnum] ne "") {
251: opendir(MSG,"$capadir/$class/discussion/$setid");
252: @msgs = grep(/.msg/,sort(readdir(MSG)));
253: closedir(MSG);
254: foreach $msg(@msgs) {
255: if(&RemZero(substr($msg,0,6)) eq $probnum) {
256: &OpenMsg("$capadir/$class/discussion/$setid/$msg");
257: if(!($status eq "hidden" && $validadmin ne "yes")) {
258: push(@good,$msg);
259: } else { $hidden++; }
260: }
261: }
262: $posts = $found[$probnum]-$hidden;
263: if ($posts >0) {
264: &OpenMsg("$capadir/$class/discussion/$setid/$good[$#good]");
265: $lastpost = "$date at $time";
266: } else {
267: $lastpost = "--";
268: }
269: }
270: else {
271: $lastpost = "--";
272: $posts = "0"; }
273: &ViewSetGutsHTML;
274: }
275: &ViewSetBotHTML;
276: if($debug) {$BenchmarkTb = new Benchmark;print "<BR>3",timestr(timediff($BenchmarkTb,$BenchmarkTa)),"\n";}
277: #exit;
278: }
279:
280: sub ViewProblem {
281: &Log("ViewProblem");
282:
283: # check if user is administrator (for admin button)
284: &CheckAdmin;
285: if($validadmin eq "yes") {
286: $adminbutton = &AdminButtonHTML;
287: }
288: else {
289: $adminbutton = "";
290: }
291:
292: opendir (MSGS,"$capadir/$class/discussion/$setid");
293: @msgs = sort(readdir(MSGS));
294: closedir(MSGS);
295:
296: # search for top message
297: @top = grep (/top/, @msgs);
298: $topmsg = "";
299: # print "$#top";
300: if($#top ne "0") {
301: $pnum = &AddZero($probnum);
302: foreach $entry(@top) {
303: $find = $entry =~ s/\A$pnum/$pnum/o;
304: if($find eq "1") {
305: $topmsg = $entry;
306: @msgs = grep(!/$topmsg/,@msgs);
307: unshift(@msgs,$topmsg);
308: print "$topmsg";
309: }
310: }
311: }
312:
313: $msgfind = "no";
314: $msgcount = 0;
315:
316: $capasbin = "$capasbin/$teachdir/capasbin";
317:
318: foreach $i(@msgs) {
319: $pn = &RemZero(substr($i,0,6));
320: if($pn eq $probnum) {
321: $msgcount++;
322: $msgfind = "yes";
323: &OpenMsg("$capadir/$class/discussion/$setid/$i");
324:
325: if($status eq "hidden" && $validadmin ne "yes") {
326: $msgcount--;
327: $msgfind = "no";
328: }
329:
330: if($msgcount eq "1") {
331: &GetInfoList;
332: $postbutton = &ReplyButtonHTML;
333: &ProblemJumpBox;
334: &ViewProblemTopHTML;
335: }
336:
337: ($token1,$token2) = split(/\|/,$poster);
338: chop $token2;
339: if($token1 eq "Anonymous") {
340: if($validadmin eq "yes") {
341: $poster = "$token2 (anonymously)";
342: }
343: else {
344: $poster = "$token1";
345: $email = "";
346: }
347: }
348: $topfind = grep(/-top.msg/,$i);
349: if($validadmin eq "yes") {
350: $file = "$i";
351: $delbutton = &DelButtonHTML;
352: $hidebutton = &HideButtonHTML;
353: $topbutton = &TopButtonHTML;
354: if($topfind eq "1") { $topbutton = &UnTopButtonHTML; }
355: }
356: $subjectbgcolor = "#92D1D0";
357: if($topfind eq "1") { $subjectbgcolor = "blue"; }
358: $messagenote = "";
359: if($validadmin eq "yes" || $status eq "public") {
360: if($status eq "hidden") {
361: $subjectbgcolor = "red";
362: $hidebutton = &UnHideButtonHTML;
363: $messagenote = "Hidden by $hiddenuser on $hiddendate at $hiddentime from $hiddenaddr";
364: }
365: # $message =~ s/</</g;
366: # $message =~ s/>/>/g;
367: &ViewProblemGutsHTML;
368: }
369: }
370: }
371:
372: if($msgfind eq "no") {
373: &GetInfoList;
374: $postbutton = &PostNewButtonHTML;
375: &ProblemJumpBox;
376: &ViewProblemTopHTML;
377: &ViewProblemNoneHTML;
378: &ViewProblemBotHTML;
379: } else {
380: &ViewProblemBotHTML;
381: }
382:
383: #exit;
384: }
385:
386: sub ViewInfoFile {
387: &Log("InfoFile");
388: open(INFOFILE,"$capadir/$class/discussion/$file");
389: @file = <INFOFILE>;
390: closedir(INFOFILE);
391:
392: print "<html><head></head><body bgcolor=\"#ffffff\">";
393: $backfunction = $form{'BACKFUNCTION'};
394: &InfoBackButtonHTML;
395: foreach $line(@file) {
396: print "$line";
397: }
398:
399: #exit;
400: }
401:
402: sub Post {
403: local(@msgs,$pn,$msg);
404:
405: # grab last message in thread
406: opendir(MSGS,"$capadir/$class/discussion/$setid");
407: @msgs = grep(/.msg/,sort(readdir(MSGS)));
408: closedir(MSGS);
409:
410: foreach $msg(@msgs) {
411: $pn = &RemZero(substr($msg,0,6));
412: if($pn eq $probnum) {
413: $lastfile = $msg;
414: }
415: }
416:
417: $PostType = "New Message";
418: if($lastfile ne "") {
419: &OpenMsg("$capadir/$class/discussion/$setid/$lastfile");
420: if($status eq "public" || $validadmin eq "yes") {
421: ($poster,$rposter) = split(/\|/,$poster);
422: $inreplyto = &InReplyToHTML;
423: $PostType = "Reply";
424: }
425: }
426:
427: &PostHTML;
428: #exit;
429: }
430:
431: sub PostSubmit {
432: local($message,$subject,$date);
433:
434: $message = $form{'message'};
435: $subject = $form{'subject'};
436:
437: if($message eq "" || $subject eq "") { &MFPostReplyHTML; }
438:
439: &Log("Post");
440:
441: # find last message in thread
442: opendir(FORUM,"$capadir/$class/discussion/$setid");
443: @dir = sort(readdir(FORUM));
444: closedir(FORUM);
445:
446: $probnum = &AddZero($probnum);
447: $replynum = "000000";
448: foreach $msg(@dir) {
449: if(substr($msg,0,6) eq $probnum) {
450: $replynum = &AddZero(&RemZero(substr($msg,7,6)) + 1);
451: }
452: }
453:
454: $date = substr($RunonDate,0,4) . $yp . substr($RunonDate,4,2);
455: &WriteMsg("$capadir/$class/discussion/$setid/$probnum-$replynum-$date-000000.msg");
456:
457: $probnum = &RemZero($probnum);
458: &PostDoneHTML;
459: #exit;
460: }
461:
462: sub DelMsgPre {
463: &CheckAdmin('kill');
464: &OpenMsg("$capadir/$class/discussion/$setid/$file");
465: &DelMsgPreHTML;
466: #exit;
467: }
468:
469: sub DelMsg {
470: &CheckAdmin('kill');
471: unlink("$capadir/$class/discussion/$setid/$file");
472: &DelMsgDoneHTML;
473: #exit;
474: }
475:
476: sub HideMsgPre {
477: &CheckAdmin('kill');
478: &OpenMsg("$capadir/$class/discussion/$setid/$file");
479: &HideMsgPreHTML;
480: #exit;
481: }
482:
483: sub HideMsg {
484: &CheckAdmin('kill');
485: open(MSG,"$capadir/$class/discussion/$setid/$file");
486: @msg = <MSG>;
487: close(MSG);
488:
489: unlink("$capadir/$class/discussion/$setid/$file");
490:
491: open(MSG,">$capadir/$class/discussion/$setid/$file");
492: for($i=0;$i<=5;$i++) {
493: print MSG "$msg[$i]";
494: }
495: print MSG "hidden|$username|$HyphenDate|$Time|$ENV{'REMOTE_ADDR'}\n";
496: close(MSG);
497:
498: &HideMsgDoneHTML;
499: }
500:
501: sub UnHideMsgPre {
502: &CheckAdmin('kill');
503: &OpenMsg("$capadir/$class/discussion/$setid/$file");
504: &UnHideMsgPreHTML;
505: #exit;
506: }
507:
508: sub UnHideMsg {
509: &CheckAdmin('kill');
510: open(MSG,"$capadir/$class/discussion/$setid/$file");
511: @msg = <MSG>;
512: close(MSG);
513:
514: unlink("$capadir/$class/discussion/$setid/$file");
515:
516: open(MSG,">$capadir/$class/discussion/$setid/$file");
517: for($i=0;$i<=5;$i++) {
518: print MSG "$msg[$i]";
519: }
520: print MSG "public||||}\n";
521: close(MSG);
522:
523: &UnHideMsgDoneHTML;
524: }
525:
526:
527: sub TopMsg {
528: &CheckAdmin('kill');
529:
530: $ext = shift(@_);
531:
532: open(MSG,"$capadir/$class/discussion/$setid/$file");
533: @msg = <MSG>;
534: close(MSG);
535:
536: unlink("$capadir/$class/discussion/$setid/$file");
537:
538: ($filename, $extension) = split(/\./,$file);
539: $filename = "$filename-$ext.msg";
540: open(MSG,">$capadir/$class/discussion/$setid/$filename");
541: for($i=0;$i<=6;$i++) {
542: print MSG "$msg[$i]";
543: }
544: close(MSG);
545:
546: if($ext eq "") {
547: $function = "restored to its original position in the thread.";
548: }
549: else {
550: $function = "moved to the top of the thread list.";
551: }
552:
553: &TopMsgDoneHTML;
554: }
555:
556: ###############################
557: ## Administrator Subroutines ##
558: ###############################
559:
560: sub AdminMain {
561: &CheckAdmin('kill');
562: &AdminMainHTML;
563: #exit;
564: }
565:
566:
567: sub AdminUserSearch {
568: &CheckAdmin('kill');
569: &AdminUserSearchHTML;
570: #exit;
571: }
572:
573:
574: sub AdminUserSearchSubmit {
575: local($sname,$semail,$saction,$sset,$sprob,$sdate,$stime);
576: &CheckAdmin('kill');
577:
578: $query = $form{'usersearch'};
579: open(LOG,"$capadir/$class/discussion/logs/access.log");
580: @log = <LOG>;
581: close(LOG);
582:
583: @linematches = grep /$query/, @log;
584:
585: foreach $line(@linematches) { print $line; }
586:
587: #exit;
588: }
589:
590: ######################
591: ## Misc Subroutines ##
592: ######################
593:
594: sub OpenMsg {
595: local($filename,$statusl);
596:
597: $filename = shift(@_);
598:
599: open (MSG,"$filename");
600: @msg = <MSG>;
601: close(MSG);
602:
603: $poster = $msg[0];
604: $date = $msg[1];
605: $time = $msg[2];
606: $subject = $msg[3];
607: $email = $msg[4];
608: $message = $msg[5];
609: $statusl = $msg[6];
610:
611: ($status, $hiddenuser, $hiddendate, $hiddentime, $hiddenaddr) = split(/\|/,$statusl);
612: }
613:
614: sub WriteMsg {
615: local($filename,$message);
616:
617: $filename = shift(@_);
618: # add sr to grab e-mail address of user
619:
620:
621: # <B> <I> <P> <A> <LI> <OL> <UL> <EM> <BR> <TT> <STRONG> <BLOCKQUOTE> <DIV .*> <DIV> <IMG>
622: %html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1, BR=>1, TT=>1, STRONG=>1,
623: BLOCKQUOTE=>1, DIV=>1, IMG=>1);
624:
625: $message = $form{'message'};
626:
627: $message =~ s/((\n\r)|(\n))\n/<p>/g;
628: $message =~ s/\n/<br>/g;
629:
630: $message =~ s/\<(\/?\s*(\w+)[^\>\<]*)/
631: {($html{uc($2)}&(length($1)<1000))?"\<$1":"\<$1"}/ge;
632: $message =~ s/(\<?\s*(\w+)[^\<\>]*)\>/
633: {($html{uc($2)}&(length($1)<1000))?"$1\>":"$1\>"}/ge;
634:
635: # $message =~ s/</</g;
636: # $message =~ s/>/>/g;
637:
638: # check if posted anonymously
639: if($form{'ANONYMOUS'} eq "yes") {
640: $username = "Anonymous|$username";
641: }
642:
643: open (MSG,">$filename");
644: print MSG "$username\n";
645: print MSG "$HyphenDate\n";
646: print MSG "$Time\n";
647: print MSG "$subject\n";
648: print MSG "$email\n";
649: print MSG "$message\n";
650: print MSG "public||||\n";
651: close(MSG);
652: }
653:
654: sub GetTeacherInfo {
655: local($capa5dir,$classname,$tdir,@classconf);
656:
657: # open/read class.conf file
658: open (CLASSCONF,"$capabin/class.conf");
659: @classconf = <CLASSCONF>;
660: close(CLASSCONF);
661:
662: $found eq "no";
663: foreach $line(@classconf) {
664: ($classname,$capa5dir,$tdir) = split(/[\t\ ]+/,$line);
665: if($classname eq $class) {
666: $teachdir = $tdir;
667: $capadir = $capa5dir;
668: $found = "yes";
669: $cgidirurl = join "/", $capasbin,$teachdir;
670: }
671: }
672: if($found eq "no") { &InvalidVarsHTML; }
673: }
674:
675: sub CheckAdmin {
676: local($asection,@adminsections,$line,@capaconfig,$command,$value,
677: $adminsection,@classl,$course,$coursenum,$section,$stunum,$a);
678:
679: $mode = shift(@_);
680:
681: if ($validadmin eq "unchecked") {
682: $validadmin = "no";
683:
684: # open 'capa.config' file (for admin section read)
685: open(CAPACONFIG,"$capadir/$class/capa.config");
686: @capaconfig = <CAPACONFIG>;
687: close(CAPACONFIG);
688: foreach $line(@capaconfig) {
689: chop $line;
690: ($command,$value) = split(/\ =\ /,$line);
691: if($command eq "admin_section") {
692: $adminsection = $value;
693: last;
694: }
695: }
696: if ($debug) { print "Admin Sections: ".$adminsection;}
697: @adminsections = split(/\,/,$adminsection);
698: for ($asection=0; $asection <= $#adminsections; $asection++) {
699: $adminsections[$asection]=&RemZero($adminsections[$asection])
700: }
701: # open 'classl' file
702: open(CLASSL,"$capadir/$class/classl");
703: @classl = <CLASSL>;
704: close(CLASSL);
705:
706: $snum =~ tr/a-z/A-Z/;
707: LINE: foreach $line(@classl) {
708: $section= substr $line, 10, 3;
709: $stunum= substr $line, 14, 9;
710: $stunum =~ tr/a-z/A-Z/;
711: if ( $stunum ne $snum ) { next LINE;}
712: $section = &RemZero($section);
713: if ($debug) {print "<BR>".$stunum."Is in section:".$section."<BR>";}
714: foreach $asection(@adminsections) {
715: if($section eq $asection ) {
716: $validadmin = "yes";
717: last LINE;
718: }
719: }
720: }
721: }
722: if($validadmin eq "no" && $mode eq "kill") { &NotAdminHTML; }
723: }
724:
725: sub BanUser {
726: local (@capaconfig,$line,$command,$value,$ban,@banned,$result);
727: $result = 0;
728: open(CAPACONFIG,"$capadir/$class/capa.config");
729: @capaconfig = <CAPACONFIG>;
730: close(CAPACONFIG);
731: foreach $line(@capaconfig) {
732: chop $line;
733: ($command,$value) = split(/\ =\ /,$line);
734: if($command eq "banned_users") { $ban = $value; last; }
735: }
736:
737: if ($debug) { print "Banned Users: ".$ban }
738: @banned = split(/\,/,$ban);
739: $snum =~ tr/a-x/A-Z/;
740: foreach $ban (@banned) {
741: if ($debug) {print $ban . "is Banned <br>";}
742: $ban =~ tr/a-z/A-Z/;
743: $ban =~ tr/\ //d;
744: if ( $ban eq $snum) { &BannedMessageHTML; $result=1 }
745: }
746: return $result
747: }
748:
749: sub ValidateUser {
750: local(@allcapaid,@classl,$line);
751:
752: open (CLASSL,"$capadir/$class/classl");
753: @classl = <CLASSL>;
754: close(CLASSL);
755:
756: $valid = "no";
757: foreach $line(@classl) {
758: if(substr($line,15,8) eq substr($snum,1,8)) {
759: $valid = yes;
760: }
761: }
762: if($valid eq "no") { &InvalidVarsHTML; }
763:
764: # check w/ allcapaid program
765: @allcapaid = `allcapaid -s $setid -e $setid -stu $snum -c $capadir/$class -i -checkopen`;
766:
767: chop $allcapaid[2];
768: chop $allcapaid[2];
769: if ($debug) {print "capaid:" . $allcapaid[2] . "<BR>\n";}
770: if($allcapaid[2] ne $capaid) {
771: if ($allcapaid[2] =~ /Open/) { &NotOpen; exit; }
772: if($action ne "newset") { &BadPassHTML; exit; }
773: #&NewSet;
774: }
775: }
776:
777: sub NotOpen {
778: &GetSetList;
779: &SetListHeader;
780: &ViewSetTitleHTML;
781: print <<NotOpen2;
782: This set is not yet open. Please choose a different set.
783: </body>
784: </html>
785: NotOpen2
786: }
787:
788: sub UserInfo {
789: local($line,@classl,$last,$first,$middle);
790:
791: open (CLASSL,"$capadir/$class/classl");
792: @classl = <CLASSL>;
793: close(CLASSL);
794:
795: foreach $line(@classl) {
796: if(substr($line,15,8) eq substr($snum,1,8)) {
797: $username = substr($line,24,36);
798: $email = substr($line,60,45);
799: }
800: }
801: ($last, $first, $middle) = split(/\ +/,$username);
802:
803: chop $last;
804: $username = "$first $last";
805: $email =~ s/\ //g;
806: chop $email;
807: }
808:
809: sub MaxProbs {
810: open (SETRECORD,"$capadir/$class/records/set$setid.db");
811: $setrecord = <SETRECORD>;
812: close(SETRECORD);
813: chop $setrecord;
814: return $setrecord;
815: }
816:
817: sub ProblemJumpBox {
818: $pdprob = "<select name=\"PROBNUM\">\n";
819: for($jumpnum=1;$jumpnum<=&MaxProbs;$jumpnum++) {
820: $selected = "";
821: if($jumpnum eq $probnum) { $selected = " selected"; }
822: $pdprob .= " <option value=$jumpnum$selected>$jumpnum\n";
823: }
824: $pdprob .= "</select>";
825: }
826:
827: sub SetJumpBox {
828: &GetSetList;
829: &SetListHeader;
830: }
831:
832: sub AddZero {
833: $string = shift(@_);
834:
835: while(length($string) < 6) {
836: $string = "0$string";
837: }
838: return $string;
839: }
840:
841: sub RemZero {
842: $string = shift(@_);
843: $string =~ s/^0*//g;
844: return $string;
845: }
846:
847: sub FormatDate {
848: $string = shift(@_);
849:
850: $month = substr($string,0,2);
851: $day = substr($string,2,2);
852: $year = substr($string,4,4);
853:
854: $string = "$month-$day-$year";
855:
856: return $string;
857: }
858:
859: ####################
860: ## Get SubRoutine ##
861: ####################
862: sub form_info {
863: read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
864:
865: # Split the name-value pairs
866: @pairs = split(/&/, $buffer);
867:
868: foreach $pair (@pairs) {
869: ($name, $value) = split(/=/, $pair);
870: if ($name eq "message") {$allow_html=1;} else {$allow_html=0;}
871: # Un-Webify plus signs and %-encoding
872: $value =~ tr/+/ /;
873: $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
874: $value =~ s/<!--(.|\n)*-->//g;
875:
876: if ($allow_html != 1) {
877: $value =~ s/<([^>]|\n)*>//g;
878: }
879: $form{$name} = $value;
880: }
881: }
882:
883: ##################
884: ## Date/Time sr ##
885: ##################
886: sub GetDateTime {
887: ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
888: $mon++;
889:
890: $year=$year+1900;
891:
892: if ($hour < 12) {
893: $AMPM = "AM";
894: }
895:
896: if ($hour > 12) {
897: $hour = $hour - 12;
898: $AMPM = "PM";
899: }
900: if ($hour == 12) {
901: $AMPM = "PM";
902: }
903:
904: if ($hour == 0) {
905: $hour = "12";
906: }
907:
908: $min = sprintf ("%2d", $min);
909: $min =~tr/ /0/;
910: $mon = sprintf ("%2d", $mon);
911: $mon =~tr/ /0/;
912: $mday = sprintf ("%2d", $mday);
913: $mday =~tr/ /0/;
914: $HyphenDate = ("$mon" . "-" . "$mday" . "-" . "$year");
915: $RunonDate = ("$mon$mday$year");
916: $Time = ("$hour" . ":" . "$min" . " " . "$AMPM");
917: }
918:
919: ########################
920: ## Logging Subroutine ##
921: ########################
922: sub Log {
923: $logmsg = shift(@_);
924:
925: &GetDateTime;
926:
927: &Lock("lock.file");
928: open(LOG,">>$capadir/$class/discussion/logs/access.log");
929: print LOG "$snum|$capaid|$username|$email|$logmsg|$setid|$probnum|$HyphenDate|$Time|$file\n";
930: close(LOG);
931: &Unlock("lock.file");
932: }
933:
934: ############################
935: ## Lock/Unlock Subroutine ##
936: ############################
937: sub Lock {
938: local ($lockname) = @_;
939: local ($endtime);
940: $endtime = 15;
941: $endtime = time + $endtime;
942:
943: while (-e $lockname && time < $endtime) {
944: open (LOCKFILE, ">$lockname");
945: }
946:
947: sub Unlock {
948: local ($lockname) = @_;
949: close (LOCKFILE);
950: unlink ($lockname);
951: }
952: }
953:
954:
955: ######################
956: ## HTML Subroutines ##
957: ######################
958:
959: ## CapaDiscuss HTML Subroutines
960:
961: # capadiscuss_html
962:
963: ## end capadiscuss
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to capadiscuss CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / Discuss