httemplate/pref/pref.html

   1 <% include('/elements/header.html', 'Preferences for '. getotaker ) %>
   2
   3 <FORM METHOD="POST" NAME="pref_form" ACTION="pref-process.html">
   4
   5 <% include('/elements/error.html') %>
   6
   7
   8 Change password (leave blank for no change)
   9 <% ntable("#cccccc",2) %>
  10
  11   <TR>
  12     <TH ALIGN="right">Current password: </TH>
  13     <TD><INPUT TYPE="password" NAME="_password"></TD>
  14   </TR>
  15
  16   <TR>
  17     <TH ALIGN="right">New password: </TH>
  18     <TD><INPUT TYPE="password" NAME="new_password"></TD>
  19   </TR>
  20
  21   <TR>
  22    <TH ALIGN="right">Re-enter new password: </TH>
  23    <TD><INPUT TYPE="password" NAME="new_password2"></TD>
  24   </TR>
  25
  26 </TABLE>
  27 <BR>
  28
  29
  30 Interface
  31 <% ntable("#cccccc",2) %>
  32
  33   <TR>
  34     <TH>Menu location: </TH>
  35     <TD>
  36       <INPUT TYPE="radio" NAME="menu_position" VALUE="left" onClick="document.images['menu_example'].src='../images/menu-left-example.png';" <% $menu_position eq 'left' ? ' CHECKED' : ''%>> Left<BR>
  37       <INPUT TYPE="radio" NAME="menu_position" VALUE="top"onClick="document.images['menu_example'].src='../images/menu-top-example.png';" <% $menu_position eq 'top' ? ' CHECKED' : ''%>> Top <BR>
  38     </TD>
  39     <TD><IMG NAME="menu_example" SRC="../images/menu-<% $menu_position %>-example.png"></TD>
  40   </TR>
  41
  42 </TABLE>
  43 <BR>
  44
  45
  46 Email Address
  47 <% ntable("#cccccc",2) %>
  48
  49   <TR>
  50     <TH>Email Address(es) (comma separated) </TH>
  51     <TD>
  52    <TD><INPUT TYPE="text" NAME="email_address" VALUE="<% $email_address %>">
  53     </TD>
  54   </TR>
  55
  56 </TABLE>
  57 <BR>
  58
  59
  60 Vonage integration (see <a href="https://secure.click2callu.com/">Click2Call</a>)
  61 <% ntable("#cccccc",2) %>
  62
  63   <TR>
  64     <TH ALIGN="right">Vonage phone number</TH>
  65     <TD><INPUT TYPE="text" NAME="vonage-fromnumber" VALUE="<% $FS::CurrentUser::CurrentUser->option('vonage-fromnumber') %>"></TD>
  66   </TR>
  67
  68   <TR>
  69     <TH ALIGN="right">Vonage username</TH>
  70     <TD><INPUT TYPE="text" NAME="vonage-username" VALUE="<% $FS::CurrentUser::CurrentUser->option('vonage-username') %>"></TD>
  71   </TR>
  72
  73   <TR>
  74     <TH ALIGN="right">Vonage password</TH>
  75     <TD><INPUT TYPE="password" NAME="vonage-password" VALUE="<% $FS::CurrentUser::CurrentUser->option('vonage-password') %>"></TD>
  76   </TR>
  77
  78 </TABLE>
  79 <BR>
  80
  81
  82 % foreach my $prop (qw( height width availHeight availWidth colorDepth )) {
  83   <INPUT TYPE="hidden" NAME="<% $prop %>" VALUE="">
  84   <SCRIPT TYPE="text/javascript">
  85   document.pref_form.<% $prop %>.value = screen.<% $prop %>;
  86   </script>
  87 % }
  88
  89 <INPUT TYPE="submit" VALUE="Update preferences">
  90
  91 <% include('/elements/footer.html') %>
  92 <%init>
  93
  94 # XSS via your own preferences?  seems unlikely, but nice try anyway...
  95 ( $FS::CurrentUser::CurrentUser->option('menu_position') || 'left' )
  96   =~ /^(\w+)$/ or die "illegal menu_position";
  97 my $menu_position = $1;
  98 ( $FS::CurrentUser::CurrentUser->option('email_address') )
  99   =~ /^([,\w\@.]*)$/ or die "illegal email_address";  #too late
 100 my $email_address = $1;
 101
 102 </%init>