source: trunk/preferences.cgi @ 336

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

Added language code to questions in Build.PL and TT vars in scripts.

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