$Log$
+Revision 301.17 2001/12/15 20:51:33 ajc
+* "reply" button on pop-up pages
+
Revision 301.16 2001/12/11 16:02:40 ajc
* Completed support for add/remove mailing list recipients.
1998-12-03 Nathan Bryant <bryant@cs.usm.maine.edu>
* webserver.c: warning fix
-
wprintf("</FONT></TD></TR></TABLE>\n");
wprintf("<CENTER>This will send a page (instant message) "
- "to %s.<BR><BR>\n", recp);
+ "to %s.\n", recp);
wprintf("<FORM METHOD=\"POST\" ACTION=\"/page_user\">\n");
escputs(recp);
wprintf("\">\n");
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"closewin\" VALUE=\"");
+ escputs(bstr("closewin"));
+ wprintf("\">\n");
+
wprintf("Enter message text:<BR>");
wprintf("<TEXTAREA NAME=\"msgtext\" wrap=soft ROWS=5 COLS=40 "
- "WIDTH=40></TEXTAREA><P>\n");
+ "WIDTH=40></TEXTAREA>\n");
wprintf("</TD></TR></TABLE><BR>\n");
char recp[SIZ];
char sc[SIZ];
char buf[SIZ];
+ char closewin[SIZ];
output_headers(1);
strcpy(recp, bstr("recp"));
strcpy(sc, bstr("sc"));
+ strcpy(closewin, bstr("closewin"));
if (strcmp(sc, "Send message")) {
wprintf("<EM>Message was not sent.</EM><BR>\n");
wprintf("<EM>%s</EM><BR>\n", &buf[4]);
}
}
+
+ if (!strcasecmp(closewin, "yes")) {
+ wprintf("<CENTER><A HREF=\"javascript:window.close();\">"
+ "[ close window ]</A></CENTER>\n");
+ }
+
wDumpContent(1);
}
fmout(NULL);
}
- wprintf("<CENTER>"
- "<A HREF=\"javascript:window.close();\">"
+ wprintf("<CENTER>");
+ wprintf("<A HREF=\"/display_page&closewin=yes&recp=");
+ urlescputs(pagefrom);
+ wprintf("\">[ reply ]</A> \n");
+
+ wprintf("<A HREF=\"javascript:window.close();\">"
"[ close window ]</A></B>\n"
"</CENTER>");
wprintf("function launch_page_popup() {\n");
wprintf("pwin = window.open('/page_popup', 'CitaPage%d', "
"'toolbar=no,location=no,copyhistory=no,status=no,"
- "scrollbars=yes,resizable=no,height=150,width=400');\n",
+ "scrollbars=yes,resizable=no,height=250,width=400');\n",
++pageseq);
wprintf("}\n");
wprintf("</SCRIPT>\n");