source: trunk/newpage.cgi @ 595

Last change on this file since 595 was 595, checked in by Dominic Hargreaves, 17 years ago

Fixed a remainined old config syntax.

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 2.5 KB
Line 
1#!/usr/local/bin/perl
2
3use warnings;
4use strict;
5
6use CGI;
7use OpenGuides::Config;
8use OpenGuides::Template;
9use OpenGuides::Utils;
10use URI::Escape;
11
12my @badchars = qw( & ? );
13push @badchars, '#'; # Avoid warning about possible comments in qw()
14
15my $q = CGI->new;
16my $config = OpenGuides::Config->new( file => "wiki.conf" );
17my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );
18
19my $pagename = $q->param("pagename") || "";
20$pagename =~ s/^\s*//;
21$pagename =~ s/\s*$//;
22
23my $action = $q->param("action") || "";
24
25if ( $action eq "makepage" ) {
26    make_page();
27} else {
28    show_form();
29}
30
31exit 0;
32
33sub show_form {
34    print OpenGuides::Template->output( wiki     => $wiki,
35                                        config   => $config,
36                                        template => "newpage.tt",
37                                        vars     => {
38                                            not_editable     => 1,
39                                            not_deletable    => 1,
40                                            deter_robots     => 1,
41                                            disallowed_chars => \@badchars,
42                                            pagename         => $pagename }
43    );
44}
45
46sub make_page {
47    # Ensure pagename not blank.
48    unless ( $pagename ) {
49        print OpenGuides::Template->output(
50            wiki     => $wiki,
51            config   => $config,
52            template => "error.tt",
53            vars     => { not_editable  => 1,
54                          not_deletable => 1,
55                          deter_robots  => 1,
56                          message       => "Please enter a page name!",
57                          return_url    => "newpage.cgi" } );
58        exit 0;
59    }
60
61    # Ensure pagename valid.
62    my %badhash = map { $_ => 1 } @badchars;
63    my @naughty;
64    foreach my $i ( 0 .. (length $pagename) - 1 ) {
65        my $char = substr( $pagename, $i, 1 );
66        push @naughty, $char if $badhash{$char};
67    }
68    if ( scalar @naughty ) {
69        my $message = "Page name $pagename contains disallowed characters";
70        print OpenGuides::Template->output(
71            wiki     => $wiki,
72            config   => $config,
73            template => "error.tt",
74            vars     => {
75                pagename     => $pagename,
76                not_editable => 1,
77                not_deletable => 1,
78                deter_robots => 1,
79                message      => $message,
80                return_url   => "newpage.cgi?pagename=" . uri_escape($pagename)
81            }
82        );
83        exit 0;
84    }
85
86    # Hurrah, we're OK.
87    my $node_param = $wiki->formatter->node_name_to_node_param($pagename);
88    print "Location: ".$config->script_url.$config->script_name."?action=edit;id=$node_param\n\n";
89    exit 0;
90}
91
92
Note: See TracBrowser for help on using the repository browser.