$pcompany
-END
- if ( defined dbdef->table('cust_main')->column('ship_last') ) {
- print <$pship_name
- $pship_company
-END
- }
- print "";
+ my @username_sql;
+ my %username_type;
+ foreach ( $cgi->param('username_type') ) {
+ $username_type{$_}++;
}
-
- print "$pager ";
- if ( $mydomain ) {
- print " * The $mydomain domain ".
- "is contained in your legacy domain ".
- "configuration file. ".
- "You should run the bin/fs-migrate-svc_acct_sm script ".
- "to create a proper svc_domain record for this domain.";
- }
+ $cgi->param('username') =~ /^([\w\-\.\&]+)$/; #untaint username_text
+ my $username = $1;
- print ' | |