Annotation of capa/capa51/Discuss/Ver1.3/capadiscuss_html, revision 1.1.1.1

1.1       albertel    1: ## CapaDiscuss HTML Subroutines
                      2: 
                      3: sub NewSetHTML {
                      4: print <<NewSetHTML2;
                      5: <html>
                      6: <head>
                      7:   <title>
                      8:   </title>
                      9: </head>
                     10: <body bgcolor="#FFFFFF">
                     11: <table><tr><td bgcolor="#000000">
                     12: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                     13: <tr bgcolor="#FFFFFF">
                     14:   <td>Class: <b>$class</b></td>
                     15: </tr></table>
                     16: </td></tr></table>
                     17: 
                     18: <table><tr><td bgcolor="#000000">
                     19: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                     20:   <tr bgcolor="#FFFFFF">
                     21:   <td>
                     22:   Please enter your CapaID for <b>set $setid</b>
                     23:   </td>
                     24:   </tr>
                     25:   <tr>
                     26:   <td bgcolor="#DEDFDF">
                     27:   <form method=post action="$cgidirurl/$discussurl">
                     28:   <input type=hidden name="ACTION" value="viewset">
                     29:   <input type=hidden name="CLASS" value="$class">
                     30:   <input type=hidden name="SETID" value="$setid">
                     31:   <input type=hidden name="PSETID" value="$setid">
                     32:   <input type=hidden name="SNUM" value="$snum">
                     33:   CapaID: <input type=password name="CAPAID" size=4 maxsize=4>
                     34:   &nbsp;&nbsp;<input type=submit value="Submit">
                     35:   </form>
                     36:   </td>
                     37: </tr></table>
                     38: </td></tr></table>
                     39: </body>
                     40: </html>
                     41: NewSetHTML2
                     42: }
                     43: 
                     44: sub ViewSetTitleHTML {
                     45: print <<ViewSetTitleHTML2;
                     46: <html>
                     47: <head>
                     48:   <title></title>
                     49: </head>
                     50: <body bgcolor="#FFFFFF">
                     51: <center>
                     52: <table><tr><td bgcolor="#000000">
                     53: <table width="100%" border=0 cellspacing=2 cellpadding=4>
                     54:   <tr valign=top>
                     55:   <td bgcolor="#FFFFFF" align=center>Class:<br><b> $class </b></td>
                     56:   <td bgcolor="#FFFFFF">
                     57:     <table width="100%" border=0 cellspacing=0 cellpadding=0><tr>
                     58:     <td>
                     59:     <form method=post action="$cgidirurl/$discussurl">
                     60:     <input type=submit value="Go">
                     61:     <b> to Set </b>
                     62:     <font size=+1>$pdset</font>
                     63:     <input type=hidden name="ACTION" value="newset">
                     64:     <input type=hidden name="CLASS" value="$class">
                     65:     <input type=hidden name="SNUM" value="$snum">
                     66:     <input type=hidden name="CAPAID" value="$capaid">
                     67:     <input type=hidden name="PSETID" value="$psetid">
                     68:     <input type=submit value="Go">
                     69:     </form>
                     70:     </td></tr></table>
                     71:   </td>
                     72:   </tr>
                     73: </table>
                     74: </td></tr></table>
                     75: <br>
                     76: <center>
                     77: <table><tr>
                     78:   <td>
                     79:   <form method=post action="$cgidirurl/$discussurl">
                     80:   <input type=hidden name="ACTION" value="viewset">
                     81:   <input type=hidden name="CLASS" value="$class">
                     82:   <input type=hidden name="SETID" value="$setid">
                     83:   <input type=hidden name="PSETID" value="$psetid">
                     84:   <input type=hidden name="SNUM" value="$snum">
                     85:   <input type=hidden name="CAPAID" value="$capaid">
                     86:   <input type=submit value="Refresh">
                     87:   </form>
                     88:   </td>
                     89:   <td>
                     90:   <form method=post action="$capasbin">
                     91:   <input type=hidden name="CLASS" value="$class">
                     92:   <input type=hidden name="SNUM"  value="$snum">
                     93:   <input type=hidden name="CAPAID" value="$capaid">
                     94:   <input type=hidden name="M" value="2">
                     95:   <input type=submit value="Try current set">
                     96:   </form>
                     97:   </td>
                     98:   <td>
                     99:   $adminbutton
                    100:   </td>
                    101:   $infostring
                    102: </tr></table>
                    103: </center>
                    104: ViewSetTitleHTML2
                    105: }
                    106: 
                    107: sub ViewSetTopSmallHTML {
                    108: print <<ViewSetTopSmallHTML2;
                    109: <center>
                    110: <table><tr><td bgcolor="#000000">
                    111: <table border=0 cellspacing=1 cellpadding=4>
                    112: <tr bgcolor="#007F7F">
                    113:   <td>
                    114:   <font color="#FFFFFF">
                    115:   <b>Problem</b>
                    116:   </td>
                    117:   <td align=center>
                    118:   <font color="#FFFFFF">
                    119:   <b>Posts</b>
                    120:   </td>
                    121:   <td>
                    122:   <font color="#FFFFFF">
                    123:   <center>
                    124:   <b>Last Post</b>
                    125:   </td>
                    126: </tr>
                    127: ViewSetTopSmallHTML2
                    128: }
                    129: 
                    130: sub ViewSetTopBigHTML {
                    131: print <<ViewSetTopBigHTML2;
                    132: <center>
                    133: <table border=0 cellspacing=12 cellpadding=0><tr>
                    134:   <td valign=top>
                    135: ViewSetTopBigHTML2
                    136: &ViewSetTopSmallHTML;
                    137: }
                    138: 
                    139: sub ViewSetGutsHTML {
                    140: print <<ViewSetGutsHTML2;
                    141: <tr>
                    142:   <td bgcolor="#FFFFFF" align=center>
                    143:   <form method=post action="$cgidirurl/$discussurl">
                    144:   <input type=hidden name="ACTION" value="viewproblem">
                    145:   <input type=hidden name="CLASS" value="$class">
                    146:   <input type=hidden name="SETID" value="$setid">
                    147:   <input type=hidden name="PSETID" value="$psetid">
                    148:   <input type=hidden name="SNUM" value="$snum">
                    149:   <input type=hidden name="CAPAID" value="$capaid">
                    150:   <input type=hidden name="PROBNUM" value="$probnum">
                    151:   <input type=hidden name="FILE" value="$file">
                    152:   <input type=submit value=" $probnum ">
                    153:   </form>
                    154:   </td>
                    155:   <td bgcolor="#FFFFFF" align=center>
                    156:   $posts
                    157:   </td>
                    158:   <td bgcolor="#FFFFFF">
                    159:   $lastpost
                    160:   </td>
                    161: </tr>
                    162: ViewSetGutsHTML2
                    163: }
                    164: 
                    165: sub ViewSetEndColHTML {
                    166: print <<ViewSetEndColHTML2;
                    167: </table>
                    168: </td></tr></table>
                    169: </td><td valign=top>
                    170: ViewSetEndColHTML2
                    171: }
                    172: 
                    173: sub ViewSetBotHTML {
                    174: print <<ViewSetBotHTML2;
                    175: </table>
                    176: </td></tr></table>
                    177: </td></tr></table>
                    178: </body>
                    179: </html>
                    180: ViewSetBotHTML2
                    181: }
                    182: 
                    183: sub ViewProblemTopHTML {
                    184: print <<ViewProblemTopHTML2;
                    185: <html>
                    186: <head>
                    187:   <title></title>
                    188: </head>
                    189: <body bgcolor="#FFFFFF">
                    190: <center>
                    191: <table><tr><td bgcolor="#000000">
                    192: <table width="100%" border=0 cellspacing=2 cellpadding=4>
                    193:   <tr>
                    194:   <td bgcolor="#FFFFFF" valign=top align=center>Class:<br><b> $class </b></td>
                    195:   <td bgcolor="#FFFFFF" valign=top align=center>
                    196:     Set: <br><b>$setid</b>
                    197:     </td>
                    198:     <td bgcolor="#FFFFFF">
                    199:     <table width="100%" border=0 cellspacing=0 cellpadding=0><tr><td>
                    200:     <form method=post action="$cgidirurl/$discussurl">
                    201:     <font size=+1>
                    202:     <input type=submit value="Go"></font> <b>to Problem</b> </td>
                    203:     <td>
                    204:     <input type=hidden name="ACTION" value="viewproblem">
                    205:     <input type=hidden name="CLASS" value="$class">
                    206:     <input type=hidden name="SETID" value="$setid">
                    207:     <input type=hidden name="PSETID" value="$psetid">
                    208:     <input type=hidden name="SNUM" value="$snum">
                    209:     <input type=hidden name="CAPAID" value="$capaid">
                    210:     <font size=+1>$pdprob
                    211:     <input type=submit value="Go">
                    212:     </font>
                    213:     </td></tr></table>
                    214:     </form>
                    215:   </td>
                    216:   </tr>
                    217: </table>
                    218: </td></tr></table>
                    219: 
                    220: <br>
                    221: <center>
                    222: <table border=0 cellspacing=3 cellpadding=0>
                    223: <tr>
                    224: <td>
                    225:   <form method=post action="$cgidirurl/$discussurl">
                    226:   <input type=hidden name="ACTION"   value="$viewset">
                    227:   <input type=hidden name="CLASS"    value="$class">
                    228:   <input type=hidden name="SETID"    value="$setid">
                    229:   <input type=hidden name="PSETID" value="$psetid">
                    230:   <input type=hidden name="SNUM"     value="$snum">
                    231:   <input type=hidden name="CAPAID"   value="$capaid">
                    232:   <input type=submit value="<-- Back">
                    233:   </form>
                    234: </td>
                    235: <td>
                    236:   <form method=post action="$cgidirurl/$discussurl">
                    237:   <input type=hidden name="ACTION" value="viewproblem">
                    238:   <input type=hidden name="CLASS" value="$class">
                    239:   <input type=hidden name="SETID" value="$setid">
                    240:   <input type=hidden name="PSETID" value="$psetid">
                    241:   <input type=hidden name="SNUM" value="$snum">
                    242:   <input type=hidden name="CAPAID" value="$capaid">
                    243:   <input type=hidden name="PROBNUM" value="$probnum">
                    244:   <input type=submit value="Refresh">
                    245:   </form>
                    246: </td>
                    247: <td>
                    248:   <form method=post action="$capasbin#P$probnum">
                    249:   <input type=hidden name="CLASS"    value="$class">
                    250:   <input type=hidden name="SNUM"     value="$snum">
                    251:   <input type=hidden name="CAPAID"   value="$capaid">
                    252:   <input type=hidden name="SETID"    value="$setid">
                    253:   <input type=hidden name="PSETID" value="$psetid">
                    254:   <input type=hidden name="M"        value="2">
                    255:   <input type=submit value="Try this problem">
                    256:   </form>
                    257: </td>
                    258: <td>
                    259:   $postbutton
                    260: </td>
                    261: <td>
                    262:   $adminbutton
                    263: </td>
                    264: </tr></table>
                    265: ViewProblemTopHTML2
                    266: }
                    267: 
                    268: sub ViewProblemGutsHTML {
                    269: print <<ViewProblemGutsHTML2;
                    270: <table width="95%" align=center><tr bgcolor="#000000"><td>
                    271: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    272:   <tr bgcolor="$subjectbgcolor">
                    273:     <td>
                    274:     <font size=+1>$subject</b></font>
                    275:     </td>
                    276:     <td align=right width="54%" valign=top>
                    277:     <font size=-1>
                    278:     Posted by <a href="mailto:$email">$poster</a> on $date at $time
                    279:     </font>
                    280:     </td>
                    281:   </tr>
                    282:   <tr bgcolor="#FFFFFF">
                    283:     <td colspan=2>
                    284:     $message
                    285:     <table><tr>
                    286:       <td>$delbutton</td>
                    287:       <td>$hidebutton</td>
                    288:       <td>$topbutton</td>
                    289:       </tr></table>
                    290:       <font size=1>$messagenote</font></p>
                    291:     </td>
                    292:   </tr>
                    293: </table>
                    294: </td></tr></table>
                    295: ViewProblemGutsHTML2
                    296: }
                    297: 
                    298: sub ViewProblemBotHTML {
                    299: print <<ViewProblemBotHTML2;
                    300: </body></html>
                    301: ViewProblemBotHTML2
                    302: }
                    303: 
                    304: 
                    305: sub ViewProblemNoneHTML {
                    306: print <<ViewProblemNoneHTML2;
                    307: <br>
                    308: <table><tr><td bgcolor="#000000">
                    309: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    310:   <tr bgcolor="#FFFFFF">
                    311:   <td>
                    312:   No messages exist for this problem number.  Click on the above
                    313:   <b>"Post New Message"</b> button to post a new message.
                    314:   </td>
                    315: </tr></table>
                    316: </td></tr></table>
                    317: ViewProblemNoneHTML2
                    318: }
                    319: 
                    320: sub ReplyButtonHTML {
                    321: return <<ReplyButtonHTML2;
                    322:   <form method=post action="$cgidirurl/$discussurl">
                    323:   <input type=hidden name="ACTION" value="post">
                    324:   <input type=hidden name="CLASS" value="$class">
                    325:   <input type=hidden name="SETID" value="$setid">
                    326:   <input type=hidden name="PSETID" value="$psetid">
                    327:   <input type=hidden name="SNUM" value="$snum">
                    328:   <input type=hidden name="CAPAID" value="$capaid">
                    329:   <input type=hidden name="PROBNUM" value="$probnum">
                    330:   <input type=hidden name="REPLYNUM" value="$replynum">
                    331:   <input type=submit value="Post Reply">
                    332:   </form>
                    333: ReplyButtonHTML2
                    334: }
                    335: 
                    336: sub PostNewButtonHTML {
                    337: return <<PostNewButtonHTML2;
                    338:   <form method=post action="$cgidirurl/$discussurl">
                    339:   <input type=hidden name="ACTION" value="post">
                    340:   <input type=hidden name="CLASS" value="$class">
                    341:   <input type=hidden name="SETID" value="$setid">
                    342:   <input type=hidden name="PSETID" value="$psetid">
                    343:   <input type=hidden name="SNUM" value="$snum">
                    344:   <input type=hidden name="CAPAID" value="$capaid">
                    345:   <input type=hidden name="PROBNUM" value="$probnum">
                    346:   <input type=hidden name="FILE" value="none">
                    347:   <input type=submit value="Post New Message">
                    348:   </form>
                    349: PostNewButtonHTML2
                    350: }
                    351: 
                    352: sub AdminButtonHTML {
                    353: return <<AdminButtonHTML2;
                    354:   <form method=post action="$cgidirurl/$discussurl">
                    355:   <input type=hidden name="ACTION" value="admin">
                    356:   <input type=hidden name="CLASS" value="$class">
                    357:   <input type=hidden name="SNUM" value="$snum">
                    358:   <input type=hidden name="CAPAID" value="$capaid">
                    359:   <input type=hidden name="SETID" value="$setid">
                    360:   <input type=hidden name="PSETID" value="$psetid">
                    361:   <input type=hidden name="PROBNUM" value="$probnum">
                    362:   <input type=submit value="Admin">
                    363:   </form>
                    364: AdminButtonHTML2
                    365: }
                    366: 
                    367: sub DelButtonHTML {
                    368: return <<DelButtonHTML2;
                    369:   <p align=right><font size=1>
                    370:   <form method=post action="$cgidirurl/$discussurl">
                    371:   <input type=hidden name="ACTION" value="delmsgpre">
                    372:   <input type=hidden name="CLASS" value="$class">
                    373:   <input type=hidden name="SNUM" value="$snum">
                    374:   <input type=hidden name="CAPAID" value="$capaid">
                    375:   <input type=hidden name="SETID" value="$setid">
                    376:   <input type=hidden name="PSETID" value="$psetid">
                    377:   <input type=hidden name="PROBNUM" value="$probnum">
                    378:   <input type=hidden name="FILE" value="$file">
                    379:   <input type=submit value="Delete Message">
                    380:   </form>
                    381:   </font></p>
                    382: DelButtonHTML2
                    383: }
                    384: 
                    385: sub HideButtonHTML {
                    386: return <<HideButtonHTML2;
                    387:   <font size=1>
                    388:   <form method=post action="$cgidirurl/$discussurl">
                    389:     <input type=hidden name="ACTION" value="hidemsgpre">
                    390:     <input type=hidden name="CLASS" value="$class">
                    391:     <input type=hidden name="SNUM" value="$snum">
                    392:     <input type=hidden name="CAPAID" value="$capaid">
                    393:     <input type=hidden name="SETID" value="$setid">
                    394:     <input type=hidden name="PSETID" value="$psetid">
                    395:     <input type=hidden name="PROBNUM" value="$probnum">
                    396:     <input type=hidden name="FILE" value="$file">
                    397:     <input type=submit value="Hide Message">
                    398:     </form>
                    399:   </font>
                    400: HideButtonHTML2
                    401: }    
                    402: 
                    403: sub UnHideButtonHTML {
                    404: return <<UnHideButtonHTML2;
                    405:   <font size=1>
                    406:   <form method=post action="$cgidirurl/$discussurl">
                    407:     <input type=hidden name="ACTION" value="unhidemsgpre">
                    408:     <input type=hidden name="CLASS" value="$class">
                    409:     <input type=hidden name="SNUM" value="$snum">
                    410:     <input type=hidden name="CAPAID" value="$capaid">
                    411:     <input type=hidden name="SETID" value="$setid">
                    412:     <input type=hidden name="PSETID" value="$psetid">
                    413:     <input type=hidden name="PROBNUM" value="$probnum">
                    414:     <input type=hidden name="FILE" value="$file">
                    415:     <input type=submit value="Unhide Message">
                    416:     </form>
                    417:   </font>
                    418: UnHideButtonHTML2
                    419: }    
                    420: 
                    421: sub TopButtonHTML {
                    422: return <<TopButtonHTML2;
                    423:   <font size=1>
                    424:   <form method=post action="$cgidirurl/$discussurl">
                    425:     <input type=hidden name="ACTION" value="topmsg">
                    426:     <input type=hidden name="CLASS" value="$class">
                    427:     <input type=hidden name="SNUM" value="$snum">
                    428:     <input type=hidden name="CAPAID" value="$capaid">
                    429:     <input type=hidden name="SETID" value="$setid">
                    430:     <input type=hidden name="PSETID" value="$psetid">
                    431:     <input type=hidden name="PROBNUM" value="$probnum">
                    432:     <input type=hidden name="FILE" value="$file">
                    433:     <input type=submit value="Top Message">
                    434:     </form>
                    435:   </font>
                    436: TopButtonHTML2
                    437: }
                    438: 
                    439: sub UnTopButtonHTML {
                    440: return <<UnTopButtonHTML2;
                    441:   <font size=1>
                    442:   <form method=post action="$cgidirurl/$discussurl">
                    443:     <input type=hidden name="ACTION" value="untopmsg">
                    444:     <input type=hidden name="CLASS" value="$class">
                    445:     <input type=hidden name="SNUM" value="$snum">
                    446:     <input type=hidden name="CAPAID" value="$capaid">
                    447:     <input type=hidden name="SETID" value="$setid">
                    448:     <input type=hidden name="PSETID" value="$psetid">
                    449:     <input type=hidden name="PROBNUM" value="$probnum">
                    450:     <input type=hidden name="FILE" value="$file">
                    451:     <input type=submit value="UnTop Message">
                    452:     </form>
                    453:   </font>
                    454: UnTopButtonHTML2
                    455: }
                    456: 
                    457: sub InfoButtonHTML {
                    458: return <<InfoButtonHTML2;
                    459:   <td>
                    460:     <form method=post action="$cgidirurl/$discussurl">
                    461:     <input type=hidden name="ACTION" value="viewinfofile">
                    462:     <input type=hidden name="CLASS" value="$class">
                    463:     <input type=hidden name="SNUM" value="$snum">
                    464:     <input type=hidden name="CAPAID" value="$capaid">
                    465:     <input type=hidden name="SETID" value="$setid">
                    466:     <input type=hidden name="PSETID" value="$psetid">
                    467:     <input type=hidden name="PROBNUM" value="$probnum">
                    468:     <input type=hidden name="FILE" value="$infofile">
                    469:     <input type=hidden name="BACKFUNCTION" value="$backfunction">
                    470:     <input type=submit value="$infodesc">
                    471:     </form>
                    472:   </td>
                    473: InfoButtonHTML2
                    474: }
                    475: 
                    476: sub InfoBackButtonHTML {
                    477: print <<InfoBackButtonHTML2;
                    478:     <form method=post action="$cgidirurl/$discussurl">
                    479:     <input type=hidden name="ACTION" value="$backfunction">
                    480:     <input type=hidden name="CLASS" value="$class">
                    481:     <input type=hidden name="SNUM" value="$snum">
                    482:     <input type=hidden name="CAPAID" value="$capaid">
                    483:     <input type=hidden name="SETID" value="$setid">
                    484:     <input type=hidden name="PSETID" value="$psetid">
                    485:     <input type=hidden name="PROBNUM" value="$probnum">
                    486:     <input type=submit value="<-- Back">
                    487:     </form>
                    488: InfoBackButtonHTML2
                    489: }
                    490: 
                    491: sub PostHTML {
                    492: print <<PostHTML2;
                    493: <html>
                    494: <head>
                    495:   <title></title>
                    496: </head>
                    497: <body bgcolor="#FFFFFF">
                    498: <table><tr><td bgcolor="#000000">
                    499: <table width="100%" border=0 cellspacing=2 cellpadding=4>
                    500:   <tr bgcolor="#FFFFFF">
                    501:     <td bgcolor="#FFFFFF">Class: <b>$class</b></td>
                    502:     <td bgcolor="#FFFFFF">Set: <b>$setid</td>
                    503:     <td bgcolor="#FFFFFF">Problem: <b>$probnum</td>
                    504:   </tr>
                    505: </table>
                    506: </td></tr></table>
                    507: <table width=500 border=0 cellspacing=0 cellpadding=0><tr>
                    508:   <td>
                    509:   <h1>Post $PostType</h1>
                    510:   </td>
                    511:   <td align=right>
                    512:   <form method=post action="$cgidirurl/$discussurl">
                    513:   <input type=hidden name="ACTION" value="viewproblem">
                    514:   <input type=hidden name="CLASS" value="$class">
                    515:   <input type=hidden name="SETID" value="$setid">
                    516:   <input type=hidden name="PSETID" value="$psetid">
                    517:   <input type=hidden name="SNUM" value="$snum">
                    518:   <input type=hidden name="CAPAID" value="$capaid">
                    519:   <input type=hidden name="PROBNUM" value="$probnum">
                    520:   <input type=submit value="Cancel">
                    521:   </form>
                    522:   </td>
                    523: </tr></table>
                    524: <form method=post action="$cgidirurl/$discussurl">
                    525: <input type=hidden name="ACTION" value="postsubmit">
                    526: <input type=hidden name="CLASS" value="$class">
                    527: <input type=hidden name="SETID" value="$setid">
                    528: <input type=hidden name="PSETID" value="$psetid">
                    529: <input type=hidden name="SNUM" value="$snum">
                    530: <input type=hidden name="CAPAID" value="$capaid">
                    531: <input type=hidden name="PROBNUM" value="$probnum">
                    532: <input type=hidden name="REPLYNUM" value="$replynum">
                    533: <table width=500><tr><td bgcolor="#000000">
                    534: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    535:   <tr bgcolor="#92D1D0">
                    536:   <td colspan=2>
                    537:   <table width="100%">
                    538:   <tr>
                    539:     <td align=left>
                    540:     Click here <input type=checkbox name="ANONYMOUS" value="yes">
                    541:     to post anonymously<font size=-1>*</font>
                    542:     </td>
                    543:     <td align=right>
                    544:     <input type=submit value="Post">
                    545:     </td>
                    546:   </tr></table>
                    547:   </td>
                    548:   </tr>
                    549:   <tr bgcolor="#92D1D0">
                    550:   <td>
                    551:   <b>Subject</b>
                    552:   </td>
                    553:   <td>
                    554:   <input type=text name="subject" size=51>
                    555:   </td>
                    556:   </tr>
                    557:   <tr bgcolor="#FFFFFF">
                    558:   <td valign=top>
                    559:   <b>Message</b>
                    560:   </td>
                    561:   <td>
                    562:   <textarea cols=50 rows=12 name=message wrap=virtual></textarea>
                    563:   </td>
                    564:   </tr>
                    565:   <tr bgcolor="#FFFFFF">
                    566:   <td colspan=2>
                    567:   <font size=-1>
                    568:   *Name not displayed to other students
                    569:   </td>
                    570:   </tr>
                    571: </table>
                    572: </td></tr></table>
                    573: </form>
                    574: $inreplyto
                    575: PostHTML2
                    576: }
                    577: 
                    578: sub InReplyToHTML {
                    579: return <<InReplyToHTML2;
                    580:   <b>In reply to:
                    581:   <table width=500><tr><td bgcolor="#000000">
                    582:   <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    583:     <tr bgcolor="#92D1D0">
                    584:     <td>
                    585:     <font size=+1>
                    586:     $subject
                    587:     </font>
                    588:     </td>
                    589:     <td width="54%">
                    590:     <font size=-1>
                    591:     Posted by <a href="mailto:$email">$poster</a> on $date at $time
                    592:     </font>
                    593:     </td>
                    594:     </tr>
                    595:     <tr bgcolor="#FFFFFF">
                    596:     <td colspan=2>
                    597:     $message
                    598:     </td>
                    599:     </tr>
                    600:   </table>
                    601:   </td></tr></table>
                    602:   </body>
                    603:   </html>
                    604: InReplyToHTML2
                    605: }
                    606: 
                    607: sub PostDoneHTML {
                    608: print <<PostDoneHTML2;
                    609: <html>
                    610: <head>
                    611:   <title></title>
                    612: </head>
                    613: <body bgcolor="#FFFFFF">
                    614: <br>
                    615: <center>
                    616: <table width=400><tr><td bgcolor="#000000">
                    617: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    618:   <tr align=center bgcolor="#FFFFFF">
                    619:   <td>
                    620:   Your message has been successfully posted!
                    621:   </td>
                    622:   </tr>
                    623:   <tr align=center bgcolor="#DEDFDF">
                    624:   <td>
                    625:   <form method=post action="$cgidirurl/$discussurl">
                    626:   <input type=hidden name="ACTION" value="viewproblem">
                    627:   <input type=hidden name="CLASS" value="$class">
                    628:   <input type=hidden name="SETID" value="$setid">
                    629:   <input type=hidden name="PSETID" value="$psetid">
                    630:   <input type=hidden name="SNUM" value="$snum">
                    631:   <input type=hidden name="CAPAID" value="$capaid">
                    632:   <input type=hidden name="PROBNUM" value="$probnum">
                    633:   <input type=submit value="Back to Problem $probnum">
                    634:   </form>
                    635:   </td>
                    636:   </tr>
                    637: </table>
                    638: </td></tr></table>
                    639: </center>
                    640: </body>
                    641: </html>
                    642: PostDoneHTML2
                    643: }
                    644: 
                    645: sub DelMsgPreHTML {
                    646: print <<DelMsgPreHTML2;
                    647: <html>
                    648: <head>
                    649:   <title></title>
                    650: </head>
                    651: <body bgcolor="#FFFFFF">
                    652: <center>
                    653: <table width="95%"><tr><td bgcolor="#000000">
                    654: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    655:   <tr bgcolor="#FFFFFF">
                    656:     <td>
                    657:     <font size=+1>$subject
                    658:     </td>
                    659:   </tr>
                    660:   <tr bgcolor="#DEDFDF">
                    661:     <td>
                    662:     <font size=-1>
                    663:     Posted by <a href="mailto:$email">$poster</a> on $date at $time
                    664:     </font>
                    665:     </td>
                    666:   </tr>
                    667:   <tr bgcolor="#FFFFFF">
                    668:     <td>
                    669:     $message
                    670:     </td>
                    671:   </tr>
                    672: </table>
                    673: </td></tr></table>
                    674: </center>
                    675: <center>
                    676: <table><tr><td bgcolor="#000000">
                    677: <table border=0 cellspacing=1 cellpadding=3><tr bgcolor="#FFFFFF">
                    678:   <td colspan=2 align=center bgcolor="#DEDFDF">
                    679:   Delete this message?
                    680:   </td>
                    681: </tr>
                    682: <tr bgcolor="#FFFFFF">
                    683:   <td align=center>
                    684:   <form method=post action="$cgidirurl/$discussurl">
                    685:   <input type=hidden name="ACTION" value="delmsg">
                    686:   <input type=hidden name="CLASS" value="$class">
                    687:   <input type=hidden name="SETID" value="$setid">
                    688:   <input type=hidden name="PSETID" value="$psetid">
                    689:   <input type=hidden name="SNUM" value="$snum">
                    690:   <input type=hidden name="CAPAID" value="$capaid">
                    691:   <input type=hidden name="FILE" value="$file">
                    692:   <input type=hidden name="PROBNUM" value="$probnum">
                    693:   <input type=submit value="Yes">
                    694:   </form>
                    695:   </td>
                    696:   <td align=center>
                    697:   <form method=post action="$cgidirurl/$discussurl">
                    698:   <input type=hidden name="ACTION" value="viewproblem">
                    699:   <input type=hidden name="CLASS" value="$class">
                    700:   <input type=hidden name="SETID" value="$setid">
                    701:   <input type=hidden name="PSETID" value="$psetid">
                    702:   <input type=hidden name="SNUM" value="$snum">
                    703:   <input type=hidden name="CAPAID" value="$capaid">
                    704:   <input type=hidden name="PROBNUM" value="$probnum">
                    705:   <input type=submit value="No">
                    706:   </form>
                    707:   </td>
                    708: </tr></table>
                    709: </td></tr></table>
                    710: </body>
                    711: </html>
                    712: DelMsgPreHTML2
                    713: }
                    714: 
                    715: sub DelMsgDoneHTML {
                    716: print <<DelMsgDoneHTML2;
                    717: <html>
                    718: <head>
                    719:   <title>
                    720:   </title>
                    721: </head>
                    722: <body bgcolor="#FFFFFF">
                    723: <center>
                    724: <table><tr><td bgcolor="#000000">
                    725: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    726:   <tr bgcolor="#FFFFFF">
                    727:   <td>
                    728:   The selected message has been successfully deleted
                    729:   </td>
                    730:   </tr>
                    731:   <tr bgcolor="#DEDFDF">
                    732:   <td align=center>
                    733:   <form method=post action="$cgidirurl/$discussurl">
                    734:   <input type=hidden name="ACTION" value="viewproblem">
                    735:   <input type=hidden name="CLASS" value="$class">
                    736:   <input type=hidden name="SETID" value="$setid">
                    737:   <input type=hidden name="PSETID" value="$psetid">
                    738:   <input type=hidden name="SNUM" value="$snum">
                    739:   <input type=hidden name="CAPAID" value="$capaid">
                    740:   <input type=hidden name="PROBNUM" value="$probnum">
                    741:   <input type=submit value="Back to Message List">
                    742:   </form>
                    743:   </td>
                    744: </tr></table>
                    745: </td></tr></table>
                    746: </body>
                    747: DelMsgDoneHTML2
                    748: }
                    749: 
                    750: 
                    751: sub HideMsgPreHTML {
                    752: print <<HideMsgPreHTML2;
                    753: <html>
                    754: <head>
                    755:   <title></title>
                    756: </head>
                    757: <body bgcolor="#FFFFFF">
                    758: <center>
                    759: <table width="95%"><tr><td bgcolor="#000000">
                    760: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    761:   <tr bgcolor="#FFFFFF">
                    762:     <td>
                    763:     <font size=+1>$subject
                    764:     </td>
                    765:   </tr>
                    766:   <tr bgcolor="#DEDFDF">
                    767:     <td>
                    768:     <font size=-1>
                    769:     Posted by <a href="mailto:$email">$poster</a> on $date at $time
                    770:     </font>
                    771:     </td>
                    772:   </tr>
                    773:   <tr bgcolor="#FFFFFF">
                    774:     <td>
                    775:     $message
                    776:     </td>
                    777:   </tr>
                    778: </table>
                    779: </td></tr></table>
                    780: </center>
                    781: <center>
                    782: <table><tr><td bgcolor="#000000">
                    783: <table border=0 cellspacing=1 cellpadding=3><tr bgcolor="#FFFFFF">
                    784:   <td colspan=2 align=center bgcolor="#DEDFDF">
                    785:   Hide this message?
                    786:   </td>
                    787: </tr>
                    788: <tr bgcolor="#FFFFFF">
                    789:   <td align=center>
                    790:   <form method=post action="$cgidirurl/$discussurl">
                    791:   <input type=hidden name="ACTION" value="hidemsg">
                    792:   <input type=hidden name="CLASS" value="$class">
                    793:   <input type=hidden name="SETID" value="$setid">
                    794:   <input type=hidden name="PSETID" value="$psetid">
                    795:   <input type=hidden name="SNUM" value="$snum">
                    796:   <input type=hidden name="CAPAID" value="$capaid">
                    797:   <input type=hidden name="FILE" value="$file">
                    798:   <input type=hidden name="PROBNUM" value="$probnum">
                    799:   <input type=submit value="Yes">
                    800:   </form>
                    801:   </td>
                    802:   <td align=center>
                    803:   <form method=post action="$cgidirurl/$discussurl">
                    804:   <input type=hidden name="ACTION" value="viewproblem">
                    805:   <input type=hidden name="CLASS" value="$class">
                    806:   <input type=hidden name="SETID" value="$setid">
                    807:   <input type=hidden name="SNUM" value="$snum">
                    808:   <input type=hidden name="CAPAID" value="$capaid">
                    809:   <input type=hidden name="PROBNUM" value="$probnum">
                    810:   <input type=submit value="No">
                    811:   </form>
                    812:   </td>
                    813: </tr></table>
                    814: </td></tr></table>
                    815: <br>
                    816: <table width="40%" border=0 cellspacing=0 cellpadding=0>
                    817:   <tr><td bgcolor="#000000">
                    818:   <table width="100%" border=0 cellspacing=1 cellpadding=0>
                    819:     <tr><td bgcolor="#FFFFFF">
                    820:        <font size=2>
                    821:         Hiding this message will make it visible to users with
                    822:         administrator access only.
                    823:     </td></tr>
                    824:   </table>
                    825: </td></tr></table>
                    826: </body>
                    827: </html>
                    828: HideMsgPreHTML2
                    829: }
                    830: 
                    831: sub HideMsgDoneHTML {
                    832: print <<HideMsgDoneHTML2;
                    833: <html>
                    834: <head>
                    835:   <title>
                    836:   </title>
                    837: </head>
                    838: <body bgcolor="#FFFFFF">
                    839: <center>
                    840: <table><tr><td bgcolor="#000000">
                    841: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    842:   <tr bgcolor="#FFFFFF">
                    843:   <td>
                    844:   The selected message has been successfully hidden
                    845:   </td>
                    846:   </tr>
                    847:   <tr bgcolor="#DEDFDF">
                    848:   <td align=center>
                    849:   <form method=post action="$cgidirurl/$discussurl">
                    850:   <input type=hidden name="ACTION" value="viewproblem">
                    851:   <input type=hidden name="CLASS" value="$class">
                    852:   <input type=hidden name="SETID" value="$setid">
                    853:   <input type=hidden name="PSETID" value="$psetid">
                    854:   <input type=hidden name="SNUM" value="$snum">
                    855:   <input type=hidden name="CAPAID" value="$capaid">
                    856:   <input type=hidden name="PROBNUM" value="$probnum">
                    857:   <input type=submit value="Back to Message List">
                    858:   </form>
                    859:   </td>
                    860: </tr></table>
                    861: </td></tr></table>
                    862: </body>
                    863: 
                    864: HideMsgDoneHTML2
                    865: }
                    866: 
                    867: 
                    868: sub UnHideMsgPreHTML {
                    869: print <<UnHideMsgPreHTML2;
                    870: <html>
                    871: <head>
                    872:   <title></title>
                    873: </head>
                    874: <body bgcolor="#FFFFFF">
                    875: <center>
                    876: <table width="95%"><tr><td bgcolor="#000000">
                    877: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    878:   <tr bgcolor="#FFFFFF">
                    879:     <td>
                    880:     <font size=+1>$subject
                    881:     </td>
                    882:   </tr>
                    883:   <tr bgcolor="#DEDFDF">
                    884:     <td>
                    885:     <font size=-1>
                    886:     Posted by <a href="mailto:$email">$poster</a> on $date at $time
                    887:     </font>
                    888:     </td>
                    889:   </tr>
                    890:   <tr bgcolor="#FFFFFF">
                    891:     <td>
                    892:     $message
                    893:     </td>
                    894:   </tr>
                    895: </table>
                    896: </td></tr></table>
                    897: </center>
                    898: <center>
                    899: <table><tr><td bgcolor="#000000">
                    900: <table border=0 cellspacing=1 cellpadding=3><tr bgcolor="#FFFFFF">
                    901:   <td colspan=2 align=center bgcolor="#DEDFDF">
                    902:   Unhide this message?
                    903:   </td>
                    904: </tr>
                    905: <tr bgcolor="#FFFFFF">
                    906:   <td align=center>
                    907:   <form method=post action="$cgidirurl/$discussurl">
                    908:   <input type=hidden name="ACTION" value="unhidemsg">
                    909:   <input type=hidden name="CLASS" value="$class">
                    910:   <input type=hidden name="SETID" value="$setid">
                    911:   <input type=hidden name="SNUM" value="$snum">
                    912:   <input type=hidden name="CAPAID" value="$capaid">
                    913:   <input type=hidden name="FILE" value="$file">
                    914:   <input type=hidden name="PROBNUM" value="$probnum">
                    915:   <input type=submit value="Yes">
                    916:   </form>
                    917:   </td>
                    918:   <td align=center>
                    919:   <form method=post action="$cgidirurl/$discussurl">
                    920:   <input type=hidden name="ACTION" value="viewproblem">
                    921:   <input type=hidden name="CLASS" value="$class">
                    922:   <input type=hidden name="SETID" value="$setid">
                    923:   <input type=hidden name="PSETID" value="$psetid">
                    924:   <input type=hidden name="SNUM" value="$snum">
                    925:   <input type=hidden name="CAPAID" value="$capaid">
                    926:   <input type=hidden name="PROBNUM" value="$probnum">
                    927:   <input type=submit value="No">
                    928:   </form>
                    929:   </td>
                    930: </tr></table>
                    931: </td></tr></table>
                    932: </body>
                    933: </html>
                    934: UnHideMsgPreHTML2
                    935: }
                    936: 
                    937: 
                    938: sub UnHideMsgDoneHTML {
                    939: print <<UnHideMsgDoneHTML2;
                    940: <html>
                    941: <head>
                    942:   <title>
                    943:   </title>
                    944: </head>
                    945: <body bgcolor="#FFFFFF">
                    946: <center>
                    947: <table><tr><td bgcolor="#000000">
                    948: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    949:   <tr bgcolor="#FFFFFF">
                    950:   <td>
                    951:   The selected message has been successfully unhidden
                    952:   </td>
                    953:   </tr>
                    954:   <tr bgcolor="#DEDFDF">
                    955:   <td align=center>
                    956:   <form method=post action="$cgidirurl/$discussurl">
                    957:   <input type=hidden name="ACTION" value="viewproblem">
                    958:   <input type=hidden name="CLASS" value="$class">
                    959:   <input type=hidden name="SETID" value="$setid">
                    960:   <input type=hidden name="PSETID" value="$psetid">
                    961:   <input type=hidden name="SNUM" value="$snum">
                    962:   <input type=hidden name="CAPAID" value="$capaid">
                    963:   <input type=hidden name="PROBNUM" value="$probnum">
                    964:   <input type=submit value="Back to Message List">
                    965:   </form>
                    966:   </td>
                    967: </tr></table>
                    968: </td></tr></table>
                    969: </body>
                    970: UnHideMsgDoneHTML2
                    971: }
                    972: 
                    973: sub TopMsgDoneHTML {
                    974: print <<TopMsgDoneHTML2;
                    975: <html>
                    976: <head>
                    977:   <title>
                    978:   </title>
                    979: </head>
                    980: <body bgcolor="#FFFFFF">
                    981: <center>
                    982: <table><tr><td bgcolor="#000000">
                    983: <table width="100%" border=0 cellspacing=1 cellpadding=4>
                    984:   <tr bgcolor="#FFFFFF">
                    985:   <td>
                    986:   The selected message has been successfully $function
                    987:   </td>
                    988:   </tr>
                    989:   <tr bgcolor="#DEDFDF">
                    990:   <td align=center>
                    991:   <form method=post action="$cgidirurl/$discussurl">
                    992:   <input type=hidden name="ACTION" value="viewproblem">
                    993:   <input type=hidden name="CLASS" value="$class">
                    994:   <input type=hidden name="SETID" value="$setid">
                    995:   <input type=hidden name="PSETID" value="$psetid">
                    996:   <input type=hidden name="SNUM" value="$snum">
                    997:   <input type=hidden name="CAPAID" value="$capaid">
                    998:   <input type=hidden name="PROBNUM" value="$probnum">
                    999:   <input type=submit value="Back to Message List">
                   1000:   </form>
                   1001:   </td>
                   1002: </tr></table>
                   1003: </td></tr></table>
                   1004: </body>
                   1005: TopMsgDoneHTML2
                   1006: }
                   1007: 
                   1008: ## Admin HTML Subroutines
                   1009: 
                   1010: sub AdminMainHTML {
                   1011: print <<AdminMainHTML2;
                   1012: <html>
                   1013: <head>
                   1014:   <title></title>
                   1015: </head>
                   1016: <body bgcolor="#ffffff" text="#000000">
                   1017: <table width="400" border=0 cellspacing=0 cellpadding=0>
                   1018:   <tr><td bgcolor="#000000">
                   1019:   <table width="100%" border=0 cellspacing=1 cellpadding=0>
                   1020:     <tr>
                   1021:       <td bgcolor="blue" align=center>
                   1022:       <font size=2 color="#ffffff"><b>Administrator Functions</font>
                   1023:       </td>
                   1024:     </tr>
                   1025:     <tr>
                   1026:     <td bgcolor="#ffffff">
                   1027:       <form method=post action="$cgidirurl/$discussurl">
                   1028:       <input type=hidden name="ACTION" value="adminusersearch">
                   1029:       <input type=hidden name="CLASS" value="$class">
                   1030:       <input type=hidden name="SETID" value="$setid">
                   1031:       <input type=hidden name="PSETID" value="$psetid">
                   1032:       <input type=hidden name="SNUM" value="$snum">
                   1033:       <input type=hidden name="CAPAID" value="$capaid">
                   1034:       <input type=hidden name="PROBNUM" value="$probnum">
                   1035:       <input type=submit value="User Search">
                   1036:       </form>
                   1037:     </td>
                   1038:     </tr>
                   1039:     <tr>
                   1040:       <td bgcolor="blue" align=right>
                   1041:         <form method=post action="$cgidirurl/$discussurl">
                   1042:         <input type=hidden name="ACTION"   value="$viewset">
                   1043:         <input type=hidden name="CLASS"    value="$class">
                   1044:         <input type=hidden name="SETID"    value="$setid">
                   1045:         <input type=hidden name="PSETID" value="$psetid">
                   1046:         <input type=hidden name="SNUM"     value="$snum">
                   1047:         <input type=hidden name="CAPAID"   value="$capaid">
                   1048:         <input type=submit value="Exit">
                   1049:         </form>
                   1050:       </td>
                   1051:       </tr>
                   1052:   </table>
                   1053:   </td></tr></table>
                   1054:   </body>
                   1055:   </html>
                   1056: AdminMainHTML2
                   1057: }
                   1058: 
                   1059: 
                   1060: sub AdminUserSearchHTML {
                   1061: print <<AdminUserSearchHTML2;
                   1062: <html>
                   1063:   <head>
                   1064:     <title></title>
                   1065:   </head>
                   1066:   <body bgcolor="#ffffff" text="#000000">
                   1067:   <form method=post action="$cgidirurl/$discussurl">
                   1068:   <input type=hidden name="ACTION" value="admin">
                   1069:   <input type=hidden name="CLASS" value="$class">
                   1070:   <input type=hidden name="SNUM" value="$snum">
                   1071:   <input type=hidden name="CAPAID" value="$capaid">
                   1072:   <input type=hidden name="SETID" value="$setid">
                   1073:   <input type=hidden name="PSETID" value="$psetid">
                   1074:   <input type=hidden name="PROBNUM" value="$probnum">
                   1075:   <input type=submit value="<--Back">
                   1076:   </form>
                   1077: 
                   1078:   <form method=post action="$cgidirurl/$discussurl">
                   1079:   <input type=hidden name="ACTION" value="adminusersearchsubmit">
                   1080:   <input type=hidden name="CLASS" value="$class">
                   1081:   <input type=hidden name="SETID" value="$setid">
                   1082:   <input type=hidden name="PSETID" value="$psetid">
                   1083:   <input type=hidden name="SNUM" value="$snum">
                   1084:   <input type=hidden name="CAPAID" value="$capaid">
                   1085:   <input type=hidden name="PROBNUM" value="$probnum">
                   1086:   <table width="400" border=0 cellspacing=0 cellpadding=0>
                   1087:     <tr><td bgcolor="#000000">
                   1088:     <table width="100%" border=0 cellspacing=1 cellpadding=0>
                   1089:       <tr><td bgcolor="blue" colspan=2>
                   1090:         <font size=2 color="#ffffff"><b>User Search</b>
                   1091:         </td>
                   1092:         </tr>
                   1093:       <tr><td bgcolor="#ffffff" colspan=2>
                   1094:         <font size=2>Username: <input type=text size=45 name="usersearch">
                   1095:         </td>
                   1096:         </tr>
                   1097:       <tr><td bgcolor="#ffffff">
                   1098:         <font size=1>User searching allows administrators to search the
                   1099:         message bases for a specified username and display summary
                   1100:         information.
                   1101:         </td>
                   1102:         <td bgcolor="#FFFFFF"><input type=submit value="Search!"></form></td>
                   1103:         </tr>
                   1104:       </table>
                   1105:     </td></tr>
                   1106:   </table>
                   1107:   </body>
                   1108:   </html>
                   1109: AdminUserSearchHTML2
                   1110: }
                   1111: 
                   1112: sub MFNewPostHTML {
                   1113: print <<MFNewPostHTML2;
                   1114: <html>
                   1115: <head>
                   1116:   <title></title>
                   1117: </head>
                   1118: <body bgcolor="#FFFFFF">
                   1119: You have not filled in all of the appropriate message information.  Please
                   1120: go back and fill in the <b>subject</b> and <b>message</b> fields.
                   1121: <br><br>
                   1122: <center>
                   1123: <form method=post action="$cgidirurl/$discussurl">
                   1124: <input type=hidden name="ACTION" value="post">
                   1125: <input type=hidden name="CLASS" value="$class">
                   1126: <input type=hidden name="SETID" value="$setid">
                   1127: <input type=hidden name="PSETID" value="$psetid">
                   1128: <input type=hidden name="SNUM" value="$snum">
                   1129: <input type=hidden name="CAPAID" value="$capaid">
                   1130: <input type=hidden name="PROBNUM" value="$probnum">
                   1131: <input type=submit value="<-- Back">
                   1132: </form>
                   1133: </center>
                   1134: </body>
                   1135: </html>
                   1136: MFNewPostHTML2
                   1137: exit;
                   1138: }
                   1139: 
                   1140: sub MFPostReplyHTML {
                   1141: print <<MFPostReplyHTML2;
                   1142: <html>
                   1143: <head>
                   1144:   <title></title>
                   1145: </head>
                   1146: <body bgcolor="#FFFFFF">
                   1147: You have not filled in all of the appropriate message information.  Please
                   1148: go back and fill in the <b>subject</b> and <b>message</b> fields.
                   1149: <br><br>
                   1150: <center>
                   1151: <form method=post action="$cgidirurl/$discussurl">
                   1152: <input type=hidden name="ACTION" value="post">
                   1153: <input type=hidden name="CLASS" value="$class">
                   1154: <input type=hidden name="SETID" value="$setid">
                   1155: <input type=hidden name="PSETID" value="$psetid">
                   1156: <input type=hidden name="SNUM" value="$snum">
                   1157: <input type=hidden name="CAPAID" value="$capaid">
                   1158: <input type=hidden name="PROBNUM" value="$probnum">
                   1159: <input type=hidden name="REPLYNUM" value="$replynum">
                   1160: <input type=submit value="<-- Back">
                   1161: </form>
                   1162: </center>
                   1163: </body>
                   1164: </html>
                   1165: MFPostReplyHTML2
                   1166: exit;
                   1167: }
                   1168: 
                   1169: 
                   1170: sub InvalidVarsHTML {
                   1171: print <<InvalidVarsHTML2;
                   1172: <html>
                   1173: <head>
                   1174:   <title></title>
                   1175: </head>
                   1176: <body bgcolor="#FFFFFF">
                   1177: you have entered one or more invalid variables.
                   1178: </body>
                   1179: </html>
                   1180: InvalidVarsHTML2
                   1181: exit;
                   1182: }
                   1183: 
                   1184: sub BadPassHTML {
                   1185: print <<BadPassHTML2;
                   1186: <html>
                   1187: <head>
                   1188: </head>
                   1189: <body bgcolor="#FFFFFF">
                   1190: You have entered an <b>incorrect</b> CAPA ID for this set
                   1191: </body>
                   1192: </html>
                   1193: BadPassHTML2
                   1194: exit;
                   1195: }
                   1196: 
                   1197: sub NotAdminHTML {
                   1198: print <<NotAdminHTML2;
                   1199: <html>
                   1200: <head>
                   1201: </head>
                   1202: <body bgcolor="#FFFFFF">
                   1203: You are not an administrator
                   1204: <br>
                   1205: This operation is not available
                   1206: </body>
                   1207: </html>
                   1208: NotAdminHTML2
                   1209: exit;
                   1210: }
                   1211: 
                   1212: 1;

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