diff options
Diffstat (limited to 'httemplate/pref')
-rw-r--r-- | httemplate/pref/pref-process.html | 17 | ||||
-rw-r--r-- | httemplate/pref/pref.html | 17 |
2 files changed, 29 insertions, 5 deletions
diff --git a/httemplate/pref/pref-process.html b/httemplate/pref/pref-process.html index ed3350971..a5e13f062 100644 --- a/httemplate/pref/pref-process.html +++ b/httemplate/pref/pref-process.html @@ -27,12 +27,19 @@ % % } % +% #XXX autogen +% my @paramlist = qw( menu_position email_address +% height width availHeight availWidth colorDepth +% ); +% +% foreach (@paramlist) { +% scalar($cgi->param($_)) =~ /^[,.\@\w]*$/ && next; +% $error ||= "Illegal value for parameter $_"; +% last; +% } +% % $error ||= $access_user->replace( { -% map { $_ => scalar($cgi->param($_)) } -% #XXX autogen -% qw( menu_position -% height width availHeight availWidth colorDepth -% ) +% map { $_ => scalar($cgi->param($_)) } @paramlist, % } ); % % if ( $error ) { diff --git a/httemplate/pref/pref.html b/httemplate/pref/pref.html index 229ac0e62..069f914ed 100644 --- a/httemplate/pref/pref.html +++ b/httemplate/pref/pref.html @@ -43,6 +43,20 @@ Interface <BR> +Email Address +<% ntable("#cccccc",2) %> + + <TR> + <TH>Email Address(es) (comma separated) </TH> + <TD> + <TD><INPUT TYPE="text" NAME="email_address" VALUE="<% $email_address %>"> + </TD> + </TR> + +</TABLE> +<BR> + + Vonage integration (see <a href="https://secure.click2callu.com/">Click2Call</a>) <% ntable("#cccccc",2) %> @@ -81,5 +95,8 @@ Vonage integration (see <a href="https://secure.click2callu.com/">Click2Call</a> ( $FS::CurrentUser::CurrentUser->option('menu_position') || 'left' ) =~ /^(\w+)$/ or die "illegal menu_position"; my $menu_position = $1; +( $FS::CurrentUser::CurrentUser->option('email_address') ) + =~ /^([,\w\@.]*)$/ or die "illegal email_address"; #too late +my $email_address = $1; </%init> |