source: trunk/newpage.cgi @ 1034

Last change on this file since 1034 was 752, checked in by Dominic Hargreaves, 16 years ago

More mod_perl fixes.

  • 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_file = $ENV{OPENGUIDES_CONFIG_FILE} || "wiki.conf";
17my $config = OpenGuides::Config->new( file => $config_file );
18my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );
19
20my $pagename = $q->param("pagename") || "";
21$pagename =~ s/^\s*//;
22$pagename =~ s/\s*$//;
23
24my $action = $q->param("action") || "";
25
26if ( $action eq "makepage" ) {
27    make_page();
28} else {
29    show_form();
30}
31
32sub show_form {
33    print OpenGuides::Template->output( wiki     => $wiki,
34                                        config   => $config,
35                                        template => "newpage.tt",
36                                        vars     => {
37                                            not_editable     => 1,
38                                            not_deletable    => 1,
39                                            deter_robots     => 1,
40                                            disallowed_chars => \@badchars,
41                                            pagename         => $pagename }
42    );
43}
44
45sub make_page {
46    # Ensure pagename not blank.
47    unless ( $pagename ) {
48        print OpenGuides::Template->output(
49            wiki     => $wiki,
50            config   => $config,
51            template => "error.tt",
52            vars     => { not_editable  => 1,
53                          not_deletable => 1,
54                          deter_robots  => 1,
55                          message       => "Please enter a page name!",
56                          return_url    => "newpage.cgi" } );
57        return 0;
58    }
59
60    # Ensure pagename valid.
61    my %badhash = map { $_ => 1 } @badchars;
62    my @naughty;
63    foreach my $i ( 0 .. (length $pagename) - 1 ) {
64        my $char = substr( $pagename, $i, 1 );
65        push @naughty, $char if $badhash{$char};
66    }
67    if ( scalar @naughty ) {
68        my $message = "Page name $pagename contains disallowed characters";
69        print OpenGuides::Template->output(
70            wiki     => $wiki,
71            config   => $config,
72            template => "error.tt",
73            vars     => {
74                pagename     => $pagename,
75                not_editable => 1,
76                not_deletable => 1,
77                deter_robots => 1,
78                message      => $message,
79                return_url   => "newpage.cgi?pagename=" . uri_escape($pagename)
80            }
81        );
82        return 0;
83    }
84
85    # Hurrah, we're OK.
86    my $node_param = $wiki->formatter->node_name_to_node_param($pagename);
87    print "Location: ".$config->script_url.$config->script_name."?action=edit;id=$node_param\n\n";
88    return 0;
89}
90
91
Note: See TracBrowser for help on using the repository browser.