diff options
| author | ivan <ivan> | 2008-06-27 08:53:13 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-06-27 08:53:13 +0000 |
| commit | 7588be4eb948426b972d0238dcdbb1537dc6a72a (patch) | |
| tree | 75a04f7ce1efbc51847c1aa0b6cc82c9d1d2633e /fs_selfservice | |
| parent | cda9905b36efab4cb3f4a325f86747d5dc0cbb51 (diff) | |
adding signup_server-service config
Diffstat (limited to 'fs_selfservice')
| -rwxr-xr-x | fs_selfservice/DEPLOY | 3 | ||||
| -rw-r--r-- | fs_selfservice/FS-SelfService/SelfService.pm | 26 | ||||
| -rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/signup.html | 45 |
3 files changed, 60 insertions, 14 deletions
diff --git a/fs_selfservice/DEPLOY b/fs_selfservice/DEPLOY index c93ed0f..e73012f 100755 --- a/fs_selfservice/DEPLOY +++ b/fs_selfservice/DEPLOY @@ -10,7 +10,8 @@ cd FS-SelfService perl Makefile.PL && make && make install cd .. -( cd ..; make deploy; cd fs_selfservice ) +#( cd ..; make deploy; cd fs_selfservice ) +( cd ..; make clean; make install-perl-modules; /etc/init.d/freeside restart; cd fs_selfservice ) #cp /home/ivan/freeside/fs_selfservice/FS-SelfService/cgi/* /var/www/MyAccount #chown freeside /var/www/MyAccount/*.cgi diff --git a/fs_selfservice/FS-SelfService/SelfService.pm b/fs_selfservice/FS-SelfService/SelfService.pm index ec4668f..cbe7b72 100644 --- a/fs_selfservice/FS-SelfService/SelfService.pm +++ b/fs_selfservice/FS-SelfService/SelfService.pm @@ -58,7 +58,7 @@ $socket .= '.'.$tag if defined $tag && length($tag); 'agent_info' => 'Agent/agent_info', 'agent_list_customers' => 'Agent/agent_list_customers', ); -@EXPORT_OK = ( keys(%autoload), qw( regionselector expselect popselector domainselector) ); +@EXPORT_OK = ( keys(%autoload), qw( regionselector expselect popselector domainselector didselector) ); $ENV{'PATH'} ='/usr/bin:/usr/ucb:/bin'; $ENV{'SHELL'} = '/bin/sh'; @@ -1437,6 +1437,30 @@ sub domainselector { } +=item didselector HASHREF | LIST + +Takes as input a hashref or list of key/value pairs with the following keys: + +=over 4 + +=back + +Returns an HTML fragment for DID selection. + +=cut + +sub didselector { + my $param; + if ( ref($_[0]) ) { + $param = shift; + } else { + $param = { @_ }; + } + + return "choose your DID XXX"; + +} + =back =head1 RESELLER FUNCTIONS diff --git a/fs_selfservice/FS-SelfService/cgi/signup.html b/fs_selfservice/FS-SelfService/cgi/signup.html index 42334ea..30935f8 100755 --- a/fs_selfservice/FS-SelfService/cgi/signup.html +++ b/fs_selfservice/FS-SelfService/cgi/signup.html @@ -1,4 +1,4 @@ -<HTML><HEAD><TITLE><%= $agent || 'ISP' %> Signup form</TITLE></HEAD> +<HTML><HEAD><TITLE><%= $agent || ( $signup_service eq 'svc_phone' ? 'ITSP' : 'ISP' ) %> Signup form</TITLE></HEAD> <BODY BGCOLOR="#e8e8e8" onUnload="myclose()"> <script language="JavaScript"><!-- var mywindow = -1; @@ -256,32 +256,51 @@ HTML::Widgets::SelectLayers->new( </SELECT></TD> </TR> +<%= + if ( $signup_service eq 'svc_phone' ) { + + $OUT .= '<TR><TD ALIGN="right">Phone number</TD><TD>'. + didselector(). + '</TD></TR>'; + + $OUT .= <<ENDOUT; +<TR> + <TD ALIGN="right">Voicemail PIN</TD> + <TD><INPUT TYPE="pin" NAME="pin" VALUE="$pin"></TD> +</TR> +ENDOUT + + } else { + + $OUT .= <<ENDOUT; <TR> <TD ALIGN="right">Username</TD> - <TD><INPUT TYPE="text" NAME="username" VALUE="<%= $username %>"></TD> + <TD><INPUT TYPE="text" NAME="username" VALUE="$username"></TD> </TR> <TR> <TD ALIGN="right">Password</TD> - <TD><INPUT TYPE="password" NAME="_password" VALUE="<%= $_password %>"></TD> + <TD><INPUT TYPE="password" NAME="_password" VALUE="$_password"></TD> </TR> <TR> <TD ALIGN="right">Re-enter Password</TD> - <TD><INPUT TYPE="password" NAME="_password2" VALUE="<%= $_password2 %>"></TD> + <TD><INPUT TYPE="password" NAME="_password2" VALUE="$_password2"></TD> </TR> -<%= - if ( $security_phrase ) { - $OUT .= <<ENDOUT; +ENDOUT + + if ( $security_phrase ) { + $OUT .= <<SECPHRASE; <TR> <TD ALIGN="right">Security Phrase</TD> <TD><INPUT TYPE="text" NAME="sec_phrase" VALUE="$sec_phrase"> </TD> </TR> -ENDOUT - } else { - $OUT .= '<INPUT TYPE="hidden" NAME="sec_phrase" VALUE="">'; +SECPHRASE + } else { + $OUT .= '<INPUT TYPE="hidden" NAME="sec_phrase" VALUE="">'; + } + } -%> -<%= + if ( @svc_acct_pop ) { $OUT .= '<TR><TD ALIGN="right">Access number</TD><TD>'. popselector( 'popnum' => $popnum, @@ -294,7 +313,9 @@ ENDOUT } else { $OUT .= popselector(popnum=>$popnum, pops=>\@svc_acct_pop); } + %> + </TABLE> <%= |