- Timestamp:
- 05/05/13 22:37:32 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/DNSDB.pm
r496 r497 1804 1804 my $self = shift; 1805 1805 my $dbh = $self->{dbh}; 1806 return ('FAIL',"Need database handle") if !$dbh;1807 1806 my $domain = shift; 1808 return ('FAIL',"Domain must not be blank ") if !$domain;1807 return ('FAIL',"Domain must not be blank\n") if !$domain; 1809 1808 my $group = shift; 1810 return ('FAIL'," Need group") if !defined($group);1809 return ('FAIL',"Group must be specified\n") if !defined($group); 1811 1810 my $state = shift; 1812 return ('FAIL'," Need domain status") if !defined($state);1811 return ('FAIL',"Domain status must be specified\n") if !defined($state); 1813 1812 1814 1813 $state = 1 if $state =~ /^active$/;
Note:
See TracChangeset
for help on using the changeset viewer.