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