=cut
+sub table_info {
+ {
+ 'name' => 'Hosting',
+ 'name_plural' => 'Virtual hosting services',
+ 'display_weight' => 40,
+ 'cancel_weight' => 20,
+ 'fields' => {
+ },
+ };
+};
+
sub table { 'svc_www'; }
+=item label [ END_TIMESTAMP [ START_TIMESTAMP ] ]
+
+Returns the zone name for this virtual host.
+
+END_TIMESTAMP and START_TIMESTAMP can optionally be passed when dealing with
+history records.
+
+=cut
+
+sub label {
+ my $self = shift;
+ $self->domain_record(@_)->zone;
+}
+
=item insert [ , OPTION => VALUE ... ]
Adds this record to the database. If there is an error, returns the error,
my $self = shift;
my $error;
- $error = $self->SUPER::delete;
+ $error = $self->SUPER::delete(@_);
return $error if $error;
'';
my ( $new, $old ) = ( shift, shift );
my $error;
- $error = $new->SUPER::replace($old);
+ $error = $new->SUPER::replace($old, @_);
return $error if $error;
'';
Checks all fields to make sure this is a valid web virtual host. If there is
an error, returns the error, otherwise returns false. Called by the insert
-and repalce methods.
+and replace methods.
=cut
$self->ut_numbern('svcnum')
# || $self->ut_number('recnum')
|| $self->ut_numbern('usersvc')
+ || $self->ut_anything('config')
;
return $error if $error;