source: trunk/preferences.cgi @ 197

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

Prefs option to show minor changes

  • 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;
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 $rc_minor_eds = $cgi->param("show_minor_edits_in_rc") || 0;
30    my $cookie = OpenGuides::CGI->make_prefs_cookie(
31        config => $config,
32        username => $username,
33        include_geocache_link  => $gc_link,
34        preview_above_edit_box => $pre_above,
35        latlong_traditional    => $latlong_trad,
36        omit_formatting_link   => $omit_fmt_lnk,
37        show_minor_edits_in_rc => $rc_minor_eds,
38    );
39    print OpenGuides::Template->output(
40        wiki     => $wiki,
41        config   => $config,
42        template => "preferences.tt",
43        cookies  => $cookie,
44        vars     => { not_editable           => 1,
45                      username               => $username,
46                      include_geocache_link  => $gc_link,
47                      preview_above_edit_box => $pre_above,
48                      latlong_traditional    => $latlong_trad,
49                      omit_formatting_link   => $omit_fmt_lnk,
50                      show_minor_edits_in_rc => $rc_minor_eds,
51                    }
52    );
53}
54
55sub show_form {
56    # Get defaults for form fields from cookies.
57    my %prefs = OpenGuides::CGI->get_prefs_from_cookie( config => $config );
58
59    print OpenGuides::Template->output(
60        wiki     => $wiki,
61        config   => $config,
62        template => "preferences.tt",
63        vars     => { %prefs,
64                      not_editable => 1,
65                      show_form    => 1
66                    }
67    );
68}
Note: See TracBrowser for help on using the repository browser.