Changeset 497 for trunk


Ignore:
Timestamp:
05/05/13 22:37:32 (12 years ago)
Author:
Kris Deugau
Message:

/trunk

Tweak some error messages from addDomain(), remove an obsolete one.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/DNSDB.pm

    r496 r497  
    18041804  my $self = shift;
    18051805  my $dbh = $self->{dbh};
    1806   return ('FAIL',"Need database handle") if !$dbh;
    18071806  my $domain = shift;
    1808   return ('FAIL',"Domain must not be blank") if !$domain;
     1807  return ('FAIL',"Domain must not be blank\n") if !$domain;
    18091808  my $group = shift;
    1810   return ('FAIL',"Need group") if !defined($group);
     1809  return ('FAIL',"Group must be specified\n") if !defined($group);
    18111810  my $state = shift;
    1812   return ('FAIL',"Need domain status") if !defined($state);
     1811  return ('FAIL',"Domain status must be specified\n") if !defined($state);
    18131812
    18141813  $state = 1 if $state =~ /^active$/;
Note: See TracChangeset for help on using the changeset viewer.