- char *s = NULL;
-
-#ifdef SPLIT_PROXY_ARGS
- FILE * fp;
- char buf[BUFSIZ];
- char * p;
- const char * filename = NULL;
- const char * file_description = NULL;
- char * query_string = strrchr(http->path, '?');
- char which_file = '\0';
-
-
- if (query_string != NULL)
- {
- /* first char past the last '?' (maybe '\0')*/
- which_file = query_string[1];
- }
- switch (which_file)
- {
- case 'p':
- if (csp->permissions_list)
- {
- filename = csp->permissions_list->filename;
- file_description = "Permissions List";
- }
- break;
- case 'f':
- if (csp->flist)
- {
- filename = csp->flist->filename;
- file_description = "Forward List";
- }
- break;
-
-#ifdef ACL_FILES
- case 'a':
- if (csp->alist)
- {
- filename = csp->alist->filename;
- file_description = "Access Control List";
- }
- break;
-#endif /* def ACL_FILES */
-
-#ifdef PCRS
- case 'r':
- if (csp->rlist)
- {
- filename = csp->rlist->filename;
- file_description = "RE Filter List";
- }
- break;
-#endif /* def PCRS */
-
-#ifdef TRUST_FILES
- case 't':
- if (csp->tlist)
- {
- filename = csp->tlist->filename;
- file_description = "Trust List";
- }
- break;
-#endif /* def TRUST_FILES */
- }
-
- if (filename)
- {
- /* Display specified file */
- /* FIXME: Add HTTP headers so this isn't cached */
- s = strsav(s,
- "HTTP/1.0 200 OK\n"
- "Server: IJ/" VERSION "\n"
- "Content-type: text/html\n"
- "Pragma: no-cache\n"
- "Last-Modified: Thu Jul 31, 1997 07:42:22 pm GMT\n"
- "Expires: Thu Jul 31, 1997 07:42:22 pm GMT\n"
- "\n"
-
- "<html>"
- "<head>"
- "<title>Internet Junkbuster Proxy Status - ");
- s = strsav(s, file_description);
- s = strsav(s,
- "</title>"
- "</head>\n"
- "<body bgcolor=\"#f8f8f0\" link=\"#000078\" alink=\"#ff0022\" vlink=\"#787878\">\n"
- "<center>\n"
- "<h1>" BANNER "\n");
- s = strsav(s, file_description);
- s = strsav(s,
- "</h1></center>\n"
- "<p><a href=\"show-proxy-args\">Back to proxy status</a></p>\n"
- "<h2>");
- s = strsav(s, file_description);
- s = strsav(s,
- "</h2>\n"
- "Contents of file "<code>");
- p = html_encode(filename);
- s = strsav(s, p);
- freez(p);
- s = strsav(s,
- "</code>":<br>\n"
- "</p>\n"
- "<pre>");
-
- if ((fp = fopen(filename, "r")) == NULL)
- {
- s = strsav(s, "</pre><h1>ERROR OPENING FILE!</h1><pre>");
- }
- else
- {
- while (fgets(buf, sizeof(buf), fp))
- {
- p = html_encode(buf);
- if (p)
- {
- s = strsav(s, p);
- freez(p);
- s = strsav(s, "<br>");
- }
- }
- fclose(fp);
- }
-
- s = strsav(s,
- "</pre>\n"
- "<br>\n"
- "<p><a href=\"show-proxy-args\">Back to proxy status</a></p>\n"
- "<br>\n"
- "<small><small><p>\n"
- "The " BANNER " Proxy - \n"
- "<a href=\"" HOME_PAGE_URL "\">" HOME_PAGE_URL "</a>\n"
- "</small></small>"
- "</body></html>\n");
- return(s);
- }
-#endif /* def SPLIT_PROXY_ARGS */
-
- s = strsav(s, csp->config->proxy_args_header);
- s = strsav(s, csp->config->proxy_args_invocation);
-#ifdef STATISTICS
- s = add_stats(s);
-#endif /* def STATISTICS */
- s = strsav(s, csp->config->proxy_args_gateways);
-
-#ifdef SPLIT_PROXY_ARGS
- s = strsav(s,
- "<h2>The following files are in use:</h2>\n"
- "<p>(Click a filename to view it)</p>\n"
- "<ul>\n");
-
- if (csp->permissions_list)
- {
- s = strsav(s, "<li>Permissions List: <a href=\"show-proxy-args?permit\"><code>");
- s = strsav(s, csp->permissions_list->filename);
- s = strsav(s, "</code></a></li>\n");
- }
-
- if (csp->flist)
- {
- s = strsav(s, "<li>Forward List: <a href=\"show-proxy-args?forward\"><code>");
- s = strsav(s, csp->flist->filename);
- s = strsav(s, "</code></a></li>\n");
- }
-
-#ifdef ACL_FILES
- if (csp->alist)
- {
- s = strsav(s, "<li>Access Control List: <a href=\"show-proxy-args?acl\"><code>");
- s = strsav(s, csp->alist->filename);
- s = strsav(s, "</code></a></li>\n");
- }
-#endif /* def ACL_FILES */
-
-#ifdef PCRS
- if (csp->rlist)
- {
- s = strsav(s, "<li>RE Filter List: <a href=\"show-proxy-args?re\"><code>");
- s = strsav(s, csp->rlist->filename);
- s = strsav(s, "</code></a></li>\n");
- }
-#endif /* def PCRS */
-
-#ifdef TRUST_FILES
- if (csp->tlist)
- {
- s = strsav(s, "<li>Trust List: <a href=\"show-proxy-args?trust\"><code>");
- s = strsav(s, csp->tlist->filename);
- s = strsav(s, "</code></a></li>\n");
- }
-#endif /* def TRUST_FILES */
-
- s = strsav(s, "</ul>");
-
-#else /* ifndef SPLIT_PROXY_ARGS */
- if (csp->clist)
- {
- s = strsav(s, csp->clist->proxy_args);
- }
-
- if (csp->flist)
- {
- s = strsav(s, csp->flist->proxy_args);
- }
-
-#ifdef ACL_FILES
- if (csp->alist)
- {
- s = strsav(s, csp->alist->proxy_args);
- }
-#endif /* def ACL_FILES */