source: trunk/preferences.cgi @ 290

Last change on this file since 290 was 290, checked in by Earle Martin, 18 years ago

Added example wiki.css; Build.PL now installs this in the same dir as wiki.cgi. Modified preferences.cgi to have option to hide help links in navbar, not just formatting link.

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 2.1 KB
Line 
1#!/usr/bin/perl -w
2
3use strict;
4use CGI;
5
6use Config::Tiny;
7use OpenGuides::CGI;
8use OpenGuides::Utils;
9use OpenGuides::Template;
10
11my $config = Config::Tiny->read("wiki.conf");
12my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );
13my $cgi = CGI->new();
14my $action = $cgi->param('action') || '';
15
16if ( $action eq "set_preferences" ) {
17    set_preferences();
18} else {
19    show_form();
20}
21
22exit 0;
23
24sub set_preferences {
25    my $username     = $cgi->param("username") || "";
26    my $gc_link      = $cgi->param("include_geocache_link")  || 0;
27    my $pre_above    = $cgi->param("preview_above_edit_box") || 0;
28    my $latlong_trad = $cgi->param("latlong_traditional")    || 0;
29    my $omit_hlplnks = $cgi->param("omit_help_links")        || 0;
30    my $rc_minor_eds = $cgi->param("show_minor_edits_in_rc") || 0;
31    my $cookie = OpenGuides::CGI->make_prefs_cookie(
32        config => $config,
33        username => $username,
34        include_geocache_link  => $gc_link,
35        preview_above_edit_box => $pre_above,
36        latlong_traditional    => $latlong_trad,
37        omit_help_links        => $omit_hlplnks,
38        show_minor_edits_in_rc => $rc_minor_eds,
39    );
40    print OpenGuides::Template->output(
41        wiki     => $wiki,
42        config   => $config,
43        template => "preferences.tt",
44        cookies  => $cookie,
45        vars     => { not_editable           => 1,
46                      username               => $username,
47                      include_geocache_link  => $gc_link,
48                      preview_above_edit_box => $pre_above,
49                      latlong_traditional    => $latlong_trad,
50                      omit_help_links        => $omit_hlplnks,
51                      show_minor_edits_in_rc => $rc_minor_eds,
52                    }
53    );
54}
55
56sub show_form {
57    # Get defaults for form fields from cookies.
58    my %prefs = OpenGuides::CGI->get_prefs_from_cookie( config => $config );
59
60    print OpenGuides::Template->output(
61        wiki     => $wiki,
62        config   => $config,
63        template => "preferences.tt",
64        vars     => { %prefs,
65                      not_editable => 1,
66                      show_form    => 1
67                    }
68    );
69}
Note: See TracBrowser for help on using the repository browser.