source: trunk/preferences.cgi @ 190

Last change on this file since 190 was 190, checked in by kake, 19 years ago

Added preferences option for including or excluding text formatting rules link in navbar.

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