0467b05b4f54439bf8576c98946fb0531193a88b
[infodrom/cgilib] / jumpto.c
1 /*
2    jumpto.c - Jump to a given URL
3    Copyright (c) 1998,2008  Martin Schulze <joey@orgatech.de>
4
5    This program is free software; you can redistribute it and/or modify
6    it under the terms of the GNU General Public License as published by
7    the Free Software Foundation; either version 2 of the License, or
8    (at your option) any later version.
9
10    This program is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13    GNU General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program; if not, write to the Free Software
17    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
18  */
19
20 /*
21  * Compile with: cc -o jumpto jumpto.c -lcgi
22  *
23  * To include this in your web pages you'll need something
24  * like this:
25  *
26  * <form action="/cgi-bin/jumpto">
27  * </form>
28  * <select name="url">
29  * <option value="/this/is/my/url.html">My URL
30  * <option value="http://www.debian.org/">Debian GNU/Linux
31  * <option value="http://www.debian.org/OpenHardware/">Open Hardware
32  * <option value="http://www.opensource.org/">Open Source
33  * </select>
34  * <input type=submit value="Jump">
35  * </form>
36  */
37
38 #include <stdlib.h>
39 #include <stdio.h>
40 #include <cgi.h>
41
42 s_cgi *cgiArg;
43
44 void main()
45 {
46     char *url;
47     char *server_url = NULL;
48
49     cgiDebug(0,0);
50     cgiArg = cgiInit ();
51
52     server_url = getenv("SERVER_URL");
53     if ((url = cgiGetValue(cgiArg, "url")) == NULL) {
54         if (server_url)
55             cgiRedirect(server_url);
56         else
57             cgiRedirect("/");
58     } else
59         cgiRedirect(url);
60 }
61
62 /*
63  * Local variables:
64  *  c-indent-level: 4
65  *  c-basic-offset: 4
66  *  tab-width: 8
67  * End:
68  */