Algorithm 版 (精华区)

发信人: Lerry (想不开·撞树), 信区: Algorithm
标  题: cgiswitch.c
发信站: 哈工大紫丁香 (2002年06月09日21:24:56 星期天), 站内信件

/*
 *    NoseyParker, the search engine for FTP archives
 *    Copyright (C) 1993-96 by Jiri A. Randus
 *
 *    This program is free software; you can redistribute it and/or modify
 *    it under the terms of the GNU General Public License as published by
 *    the Free Software Foundation; either version 2 of the License, or
 *    (at your option) any later version.
 *
 *    This program is distributed in the hope that it will be useful,
 *    but WITHOUT ANY WARRANTY; without even the implied warranty of
 *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *    GNU General Public License for more details.
 *
 *    You should have received a copy of the GNU General Public License
 *    along with this program; if not, write to the Free Software
 *    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *    The author can be reached as follows:
 *      Internet:   <Jiri.Randus@vslib.cz>
 *      Phone:      ++42 48 5227374
 *      SnailMail:  Jiri Randus
 *                  KIN HF TU v Liberci
 *                  Halkova 6
 *            46117 Liberec
 *                  Czech Republic
 */
#define CGISWITCH_VERSION   "1.1"
#include "parker.h"
void Redirect(char *path)
{
  printf("Location: http://%s%s\n",SERVER,path);
  printf("Content-type: text/html\n\n");
  puts("<HEAD><TITLE>The document is here</TITLE></HEAD>");
  puts("<BODY>The requested document is");
  printf("<A HREF=\"http://%s%s\">here</A></BODY>\n",SERVER,path);
}
void main(void)
{
  char *agent;
  char *pathinfo;
  char path[MAX];
  alarm(CGIALARM);
  agent=getenv(HTTPUSERAGENT);
  pathinfo=getenv(HTTPPATHINFO);
/* Compatibility hack -> `search.*' -> `parker.shtml' */
  if(pathinfo && (!strncmp(pathinfo,"/search.",8))) pathinfo=NULL;
  if((!agent) || (strncmp(agent,MOZILLA,strlen(MOZILLA))))
  {
    if(!pathinfo) Redirect("/Parker/Common/parker.shtml");
    else {
      sprintf(path,"/Parker/Common%s",pathinfo);
      Redirect(path);
    }
  }
  else {
    if(!pathinfo) Redirect("/Parker/Netscape/parker.shtml");
    else {
      sprintf(path,"/Parker/Netscape%s",pathinfo);
      Redirect(path);
    }
  }
  exit(0);
}

--
当一个女孩儿觉得她不太容易了解那个男人的时候,她会爱他。

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 天外飞仙]
[百宝箱] [返回首页] [上级目录] [根目录] [返回顶部] [刷新] [返回]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间:2.412毫秒