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