]>
Dogcows Code - chaz/p5-CGI-Ex/blob - samples/app/app1/lib/App1/PickDomain.pm
e106b5392ceea39945e5c7d16b202287de80b18d
1 package App1
::PickDomain
;
5 App1::PickDomain - usually the first step - pick a domain
16 remote_addr
=> $ENV{'REMOTE_ADDR'},
17 time => scalar(localtime),
23 'group no_alert' => 1,
24 'group no_confirm' => 1,
29 type_error
=> 'Please enter a valid domain',
36 my $domain = $self->form->{'domain'};
38 # contrived "check" for availability
39 # in theory - these checks would also cache with something like memcache
40 if ($domain =~ /^(\w+)\.com$/) { # for this test - .com isn't available
41 $self->stash->{'domain_prefix'} = $1;
43 $self->stash->{'domain_available'} = 1;
This page took 0.038867 seconds and 3 git commands to generate.