[freeside-devel] Possible Changes to svc_www.cgi and svc_www.pm

[Plamen Ivanov]

Stop sending me this email
----- Original Message -----
From: Stephen Bechard <steve at destek.net>
To: <ivan-freeside-devel at sisd.com>
Sent: Sunday, June 23, 2002 6:45 AM
Subject: Re: [freeside-devel] Possible Changes to svc_www.cgi and svc_www.pm


> > > If you mean editing the DNS/zone data, there's already
> > > (import from/export to) BIND and a web editor for the zone files.
> >
> > I noticed in that view/svc_domain.cgi there was a (delete) option for
each
> > of the DNS/zone data records, but not and edit. I also noticed that
there
> is
> > no error checking on the deletion of these zones compared to configured
> > svc_www records that might be attached to it. :(
>
> Here is a quick fix for the above issue in the delete-domain_record.cgi
> Should probably really be handled in the domain_record.pm
> Enjoy,
> Steve
>
> *** /tarballs/freeside-1.4.0pre14/httemplate/misc/delete-domain_record.cgi
> Wed May 22 14:44:01 2002
> --- delete-domain_record.cgi    Sun Jun 23 00:45:12 2002
> ***************
> *** 6,15 ****
>   my $recnum = $1;
>
>   my $domain_record = qsearchs('domain_record',{'recnum'=>$recnum});
>
> ! my $error = $domain_record->delete;
> ! eidiot($error) if $error;
> !
> ! print $cgi->redirect($p. "view/svc_domain.cgi?".
$domain_record->svcnum);
>
>   %>
> --- 6,20 ----
>   my $recnum = $1;
>
>   my $domain_record = qsearchs('domain_record',{'recnum'=>$recnum});
> + my $svc_www = qsearchs('svc_www',{'recnum'=>$recnum});
>
> ! if($svc_www){
> !    print "<FONT COLOR=RED><B>You cannot delete a Domain Record that has
a
> website configured</B></FONT><BR>";
> !    print "<A HREF=". $p. "view/svc_domain.cgi?". $domain_record->svcnum.
> ">Back to Domain</A>";
> ! } else {
> !    my $error = $domain_record->delete;
> !    eidiot($error) if $error;
> !    print $cgi->redirect($p. "view/svc_domain.cgi?".
> $domain_record->svcnum);
> ! }
>
>   %>
>
>
>