Merge branch 'master' of git.freeside.biz:/home/git/freeside
[freeside.git] / httemplate / pref / pref-process.html
1 % if ( $error ) {
2 %   $cgi->param('error', $error);
3 <% $cgi->redirect(popurl(1). "pref.html?". $cgi->query_string ) %>
4 % } else {
5 <% include('/elements/header.html', 'Preferences updated') %>
6 <% include('/elements/footer.html') %>
7 % }
8 <%init>
9
10 if ( FS::Conf->new->exists('disable_acl_changes') ) {
11   errorpage("Preference changes disabled in public demo");
12   die "shouldn't be reached";
13 }
14
15 my $error = '';
16 my $access_user = '';
17
18 if ( grep { $cgi->param($_) !~ /^\s*$/ }
19           qw(_password new_password new_password2)
20    ) {
21
22   $access_user = qsearchs( 'access_user', {
23     'username'  => getotaker,
24     '_password' => scalar($cgi->param('_password')),
25   } );
26
27   $error = 'Current password incorrect; password not changed'
28     unless $access_user;
29
30   $error ||= "New passwords don't match"
31     unless $cgi->param('new_password') eq $cgi->param('new_password2');
32
33   $error ||= "No new password entered"
34    unless length($cgi->param('new_password'));
35
36   $access_user->_password($cgi->param('new_password')) unless $error;
37
38 } else {
39
40   $access_user = $FS::CurrentUser::CurrentUser;
41
42 }
43
44 #well, if you got your password change wrong, you don't get anything else
45 #changed right now.  but it should be sticky on the form
46 unless ( $error ) { # if ($access_user) {
47
48   my %param = $access_user->options;
49
50   #XXX autogen
51   my @paramlist = qw( locale menu_position default_customer_view 
52                       spreadsheet_format mobile_menu
53                       enable_fuzzy_on_exact
54                       disable_html_editor disable_enter_submit_onetimecharge
55                       email_address
56                       snom-ip snom-username snom-password
57                       vonage-fromnumber vonage-username vonage-password
58                       cust_pkg-display_times
59                       show_pkgnum show_confitem_counts export_getsettings
60                       show_db_profile save_db_profile save_tmp_typesetting
61                       height width availHeight availWidth colorDepth
62                     );
63
64   foreach (@paramlist) {
65     scalar($cgi->param($_)) =~ /^[,.\-\@\w]*$/ && next;
66     $error ||= "Illegal value for parameter $_";
67     last;
68   }
69
70   foreach (@paramlist) {
71     $param{$_} = scalar($cgi->param($_));
72   }
73
74   $error ||= $access_user->replace( \%param );
75
76 }
77
78 if ( !$error and ($FS::TicketSystem::system || '') eq 'RT_Internal' ) {
79   # sync RT user locale on every update
80   my $locale = $access_user->option('locale');
81   FS::TicketSystem->init;
82   my $UserObj = FS::TicketSystem->session('')->{'CurrentUser'}->UserObj;
83   # Bypass RT ModifySelf ACL
84   $UserObj->CurrentUser( RT::SystemUser );
85   if ( $UserObj->Lang ne $locale ) {
86     my ($val, $msg) = $UserObj->SetLang($locale);
87     $error = $msg if !$val;
88   }
89 }
90 </%init>