projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
maybe just for debugging
[freeside.git]
/
FS
/
FS
/
domain_record.pm
diff --git
a/FS/FS/domain_record.pm
b/FS/FS/domain_record.pm
index
9b7081b
..
0f634bf
100644
(file)
--- a/
FS/FS/domain_record.pm
+++ b/
FS/FS/domain_record.pm
@@
-123,7
+123,7
@@
sub check {
my $recdata = $self->recdata;
$recdata =~ s/\s+/ /g;
$recdata =~ /^([a-z0-9\.\-]+ [\w\-\+]+\.[a-z0-9\.\-]+ \( (\d+ ){5}\))$/
my $recdata = $self->recdata;
$recdata =~ s/\s+/ /g;
$recdata =~ /^([a-z0-9\.\-]+ [\w\-\+]+\.[a-z0-9\.\-]+ \( (\d+ ){5}\))$/
- or return "Illegal data for SOA re
oc
rd: $recdata";
+ or return "Illegal data for SOA re
co
rd: $recdata";
$self->recdata($1);
} elsif ( $self->rectype eq 'NS' ) {
$self->recdata =~ /^([a-z0-9\.\-]+)$/
$self->recdata($1);
} elsif ( $self->rectype eq 'NS' ) {
$self->recdata =~ /^([a-z0-9\.\-]+)$/
@@
-156,7
+156,7
@@
sub check {
=head1 VERSION
=head1 VERSION
-$Id: domain_record.pm,v 1.
1 2000-02-03 05:16:52
ivan Exp $
+$Id: domain_record.pm,v 1.
3 2001-08-21 02:44:47
ivan Exp $
=head1 BUGS
=head1 BUGS
@@
-169,13
+169,6
@@
course, it's still better than editing the zone files directly. :)
L<FS::Record>, schema.html from the base documentation.
L<FS::Record>, schema.html from the base documentation.
-=head1 HISTORY
-
-$Log: domain_record.pm,v $
-Revision 1.1 2000-02-03 05:16:52 ivan
-beginning of DNS and Apache support
-
-
=cut
1;
=cut
1;