<% include('/elements/header.html', 'Preferences for '. getotaker ) %>

<% include('/elements/error.html') %> Change password (leave blank for no change) <% ntable("#cccccc",2) %> Current password: New password: Re-enter new password:
Interface <% ntable("#cccccc",2) %> Menu location: > Left
> Top
Default customer view: % foreach my $view ( keys %customer_views ) { % my $selected = % $customer_views{$view} eq $curuser->option('default_customer_view') % ? 'SELECTED' % : ''; ><%$view%> % } Disable HTML editor for customer notes: option('disable_html_editor') ? 'CHECKED' : '' %>>
Email Address <% ntable("#cccccc",2) %> Email Address(es) (comma separated)
Development <% ntable("#cccccc",2) %> Show customer package timestamps: option('cust_pkg-display_times') ? 'CHECKED' : '' %>> Show internal package numbers: option('show_pkgnum') ? 'CHECKED' : '' %>> Show config item counts: option('show_confitem_counts') ? 'CHECKED' : '' %>> Show export data on service view (when available): option('export_getsettings') ? 'CHECKED' : '' %>> Show database profiling (when available): option('show_db_profile') ? 'CHECKED' : '' %>> Save database profiling logs (when available): option('save_db_profile') ? 'CHECKED' : '' %>>
SNOM integration <% ntable("#cccccc",2) %> SNOM IP address SNOM HTTP username (if necessary) SNOM HTTP password (if necessary)
OR

Vonage integration (see Click2Call) <% ntable("#cccccc",2) %> Vonage phone number Vonage username Vonage password
% foreach my $prop (qw( height width availHeight availWidth colorDepth )) { % } <% include('/elements/footer.html') %> <%init> my $curuser = $FS::CurrentUser::CurrentUser; #false laziness w/view/cust_main.cgi and Conf.pm (cust_main-default_view) tie my %customer_views, 'Tie::IxHash', 'Basics' => 'basics', 'Notes' => 'notes', #notes and files? 'Tickets' => 'tickets', 'Packages' => 'packages', 'Payment History' => 'payment_history', ; $customer_views{'Change History'} = 'change_history' if $curuser->access_right('View customer history'); $customer_views{'Jumbo'} = 'jumbo'; # XSS via your own preferences? seems unlikely, but nice try anyway... ( $curuser->option('menu_position') || 'top' ) =~ /^(\w+)$/ or die "illegal menu_position"; my $menu_position = $1; ( $curuser->option('email_address') ) =~ /^([,\w\@.]*)$/ or die "illegal email_address"; #too late my $email_address = $1;