Routino SVN Repository Browser

Check out the latest version of Routino: svn co http://routino.org/svn/trunk routino

ViewVC logotype

Contents of /branches/2.3.1-dev/web/www/routino/customrouter.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1046 - (show annotations) (download)
Sat Aug 11 16:20:21 2012 UTC (12 years, 7 months ago) by amb
File size: 1173 byte(s)
Create branch for 2.3.1 development
1 #!/usr/bin/perl
2 #
3 # Routino router custom link CGI
4 #
5 # Part of the Routino routing software.
6 #
7 # This file Copyright 2008-2012 Andrew M. Bishop
8 #
9 # This program is free software: you can redistribute it and/or modify
10 # it under the terms of the GNU Affero General Public License as published by
11 # the Free Software Foundation, either version 3 of the License, or
12 # (at your option) any later version.
13 #
14 # This program is distributed in the hope that it will be useful,
15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 # GNU Affero General Public License for more details.
18 #
19 # You should have received a copy of the GNU Affero General Public License
20 # along with this program. If not, see <http://www.gnu.org/licenses/>.
21 #
22
23 # Use the perl CGI module
24 use CGI ':cgi';
25
26 # Create the query and get the parameters
27
28 $query=new CGI;
29
30 # Redirect to the HTML page.
31
32 $params="";
33
34 foreach $key ($query->param)
35 {
36 if($params eq "")
37 {
38 $params="?";
39 }
40 else
41 {
42 $params.="&";
43 }
44
45 $params.="$key=".$query->param($key);
46 }
47
48 print $query->redirect("router.html".$params);

Properties

Name Value
svn:executable *