httemplate/edit/svc_www.cgi

   1 %my $conf = new FS::Conf;
   2 %
   3 %my( $svcnum,  $pkgnum, $svcpart, $part_svc, $svc_www, $config );
   4 %
   5 %if ( $cgi->param('error') ) {
   6 %
   7 %  $svc_www = new FS::svc_www ( {
   8 %    map { $_, scalar($cgi->param($_)) } fields('svc_www')
   9 %  } );
  10 %  $svcnum = $svc_www->svcnum;
  11 %  $pkgnum = $cgi->param('pkgnum');
  12 %  $svcpart = $cgi->param('svcpart');
  13 %  $config = $cgi->param('config');
  14 %  $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
  15 %  die "No part_svc entry!" unless $part_svc;
  16 %
  17 %} elsif ( $cgi->param('pkgnum') && $cgi->param('svcpart') ) { #adding
  18 %
  19 %  $cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum';
  20 %  $pkgnum = $1;
  21 %  $cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart';
  22 %  $svcpart = $1;
  23 %
  24 %  $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
  25 %  die "No part_svc entry!" unless $part_svc;
  26 %
  27 %  $svc_www = new FS::svc_www { svcpart => $svcpart };
  28 %
  29 %  $svcnum='';
  30 %
  31 %  $svc_www->set_default_and_fixed;
  32 %
  33 %} else { #editing
  34 %
  35 %  my($query) = $cgi->keywords;
  36 %  $query =~ /^(\d+)$/ or die "unparsable svcnum";
  37 %  $svcnum=$1;
  38 %  $svc_www=qsearchs('svc_www',{'svcnum'=>$svcnum})
  39 %    or die "Unknown (svc_www) svcnum!";
  40 %
  41 %  my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum})
  42 %    or die "Unknown (cust_svc) svcnum!";
  43 %
  44 %  $pkgnum=$cust_svc->pkgnum;
  45 %  $svcpart=$cust_svc->svcpart;
  46 %  $config=$cgi->escapeHTML($svc_www->config);
  47 %
  48 %  $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
  49 %  die "No part_svc entry!" unless $part_svc;
  50 %
  51 %}
  52 %my $action = $svc_www->svcnum ? 'Edit' : 'Add';
  53 %
  54 %my( %svc_acct, %arec );
  55 %if ($pkgnum) {
  56 %
  57 %  my @u_acct_svcparts;
  58 %  foreach my $svcpart (
  59 %    map { $_->svcpart } qsearch( 'part_svc', { 'svcdb' => 'svc_acct' } )
  60 %  ) {
  61 %    next if $conf->exists('svc_www-usersvc_svcpart')
  62 %            && ! grep { $svcpart == $_ }
  63 %                      $conf->config('svc_www-usersvc_svcpart');
  64 %    push @u_acct_svcparts, $svcpart;
  65 %  }
  66 %
  67 %  my($cust_pkg)=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
  68 %  my($custnum)=$cust_pkg->getfield('custnum');
  69 %  my($i_cust_pkg);
  70 %  foreach $i_cust_pkg ( qsearch('cust_pkg',{'custnum'=>$custnum}) ) {
  71 %    my($cust_pkgnum)=$i_cust_pkg->getfield('pkgnum');
  72 %    my($acct_svcpart);
  73 %    foreach $acct_svcpart (@u_acct_svcparts) {   #now find the corresponding
  74 %                                              #record(s) in cust_svc ( for this
  75 %                                              #pkgnum ! )
  76 %      my($i_cust_svc);
  77 %      foreach $i_cust_svc ( qsearch('cust_svc',{'pkgnum'=>$cust_pkgnum,'svcpart'=>$acct_svcpart}) ) {
  78 %        my($svc_acct)=qsearchs('svc_acct',{'svcnum'=>$i_cust_svc->getfield('svcnum')});
  79 %        $svc_acct{$svc_acct->getfield('svcnum')}=
  80 %          $svc_acct->cust_svc->part_svc->svc. ': '. $svc_acct->email;
  81 %      }
  82 %    }
  83 %  }
  84 %
  85 %
  86 %  my($d_part_svc,@d_acct_svcparts);
  87 %  foreach $d_part_svc ( qsearch('part_svc',{'svcdb'=>'svc_domain'}) ) {
  88 %    push @d_acct_svcparts,$d_part_svc->getfield('svcpart');
  89 %  }
  90 %
  91 %  foreach $i_cust_pkg ( qsearch( 'cust_pkg', { 'custnum' => $custnum } ) ) {
  92 %    my $cust_pkgnum = $i_cust_pkg->pkgnum;
  93 %
  94 %    foreach my $acct_svcpart (@d_acct_svcparts) {
  95 %
  96 %      foreach my $i_cust_svc (
  97 %        qsearch( 'cust_svc', { 'pkgnum'  => $cust_pkgnum,
  98 %                               'svcpart' => $acct_svcpart } )
  99 %      ) {
 100 %        my $svc_domain =
 101 %          qsearchs( 'svc_domain', { 'svcnum' => $i_cust_svc->svcnum } );
 102 %
 103 %        my $extra_sql = "AND ( rectype = 'A' OR rectype = 'CNAME' )";
 104 %        unless ( $conf->exists('svc_www-enable_subdomains') ) {
 105 %          $extra_sql .= " AND ( reczone = '\@' OR reczone = '".
 106 %                        $svc_domain->domain. ".' )";
 107 %        }
 108 %
 109 %        foreach my $domain_rec (
 110 %          qsearch( 'domain_record',
 111 %                   {
 112 %                     'svcnum' => $svc_domain->svcnum,
 113 %                   },
 114 %                   '',
 115 %                   $extra_sql,
 116 %          )
 117 %        ) {
 118 %          $arec{$domain_rec->recnum} = $domain_rec->zone;
 119 %        }
 120 %
 121 %        if ( $conf->exists('svc_www-enable_subdomains') ) {
 122 %          $arec{'www.'. $svc_domain->domain} = 'www.'. $svc_domain->domain
 123 %            unless    qsearchs( 'domain_record', {
 124 %                                  svcnum  => $svc_domain->svcnum,
 125 %                                  reczone => 'www',
 126 %                      } )
 127 %                   || qsearchs( 'domain_record', {
 128 %                                  svcnum  => $svc_domain->svcnum,
 129 %                                  reczone => 'www.'.$svc_domain->domain.'.',
 130 %                    } );
 131 %        }
 132 %
 133 %        $arec{'@.'. $svc_domain->domain} = $svc_domain->domain
 134 %          unless   qsearchs('domain_record', {
 135 %                              svcnum  => $svc_domain->svcnum,
 136 %                              reczone => '@',
 137 %                   } )
 138 %                || qsearchs('domain_record', {
 139 %                              svcnum  => $svc_domain->svcnum,
 140 %                              reczone => $svc_domain->domain.'.',
 141 %                   } );
 142 %
 143 %      }
 144 %
 145 %    }
 146 %  }
 147 %
 148 %} elsif ( $action eq 'Edit' ) {
 149 %
 150 %  my($domain_rec) = qsearchs('domain_record', { 'recnum'=>$svc_www->recnum });
 151 %  $arec{$svc_www->recnum} = join '.', $domain_rec->recdata, $domain_rec->reczone;
 152 %
 153 %} else {
 154 %  die "\$action eq Add, but \$pkgnum is null!\n";
 155 %}
 156 %
 157 %
 158 %my $p1 = popurl(1);
 159
 160 <% include("/elements/header.html", "Web Hosting $action", '') %>
 161
 162 %print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
 163 %      "</FONT>"
 164 %  if $cgi->param('error');
 165 %
 166 %print qq!<FORM ACTION="${p1}process/svc_www.cgi" METHOD=POST>!;
 167 %
 168 %#display
 169 %
 170 %
 171 %
 172 %#svcnum
 173 %print qq!<INPUT TYPE="hidden" NAME="svcnum" VALUE="$svcnum">!;
 174 %print qq!Service #<B>!, $svcnum ? $svcnum : "(NEW)", "</B><BR><BR>";
 175 %
 176 %#pkgnum
 177 %print qq!<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">!;
 178 %
 179 %#svcpart
 180 %print qq!<INPUT TYPE="hidden" NAME="svcpart" VALUE="$svcpart">!;
 181 %
 182 %my($recnum,$usersvc)=(
 183 %  $svc_www->recnum,
 184 %  $svc_www->usersvc,
 185 %);
 186 %
 187 %print &ntable("#cccccc",2),
 188 %      '<TR><TD ALIGN="right">Zone</TD><TD><SELECT NAME="recnum" SIZE=1>';
 189 %foreach $_ (keys %arec) {
 190 %  print "<OPTION", $_ eq $recnum ? " SELECTED" : "",
 191 %        qq! VALUE="$_">$arec{$_}!;
 192 %}
 193 %print "</SELECT></TD></TR>";
 194 %
 195 %if ( $part_svc->part_svc_column('usersvc')->columnflag ne 'F'
 196 %     || $part_svc->part_svc_column('usersvc')->columnvalue =~ /^\s*$/) {
 197 %  print '<TR><TD ALIGN="right">Username</TD><TD><SELECT NAME="usersvc" SIZE=1>';
 198 %  print '<OPTION VALUE="">(none)';
 199 %  foreach $_ (keys %svc_acct) {
 200 %    print "<OPTION", ($_ eq $usersvc) ? " SELECTED" : "",
 201 %          qq! VALUE="$_">$svc_acct{$_}!;
 202 %  }
 203 %  print "</SELECT></TD></TR>";
 204 %}
 205 %
 206 %if ( $part_svc->part_svc_column('config')->columnflag ne 'F' &&
 207 %     $FS::CurrentUser::CurrentUser->access_right('Edit www config') ) {
 208 %  print '<TR><TD ALIGN="right">Config lines</TD><TD>';
 209 %  print qq!<TEXTAREA NAME="config" rows="15" cols="80">$config</TEXTAREA></TD></TR>!
 210 %}else{
 211 %  print qq!<INPUT TYPE="hidden" NAME="config" VALUE="$config">!;
 212 %}
 213 %
 214 %foreach my $field ($svc_www->virtual_fields) {
 215 %  if ( $part_svc->part_svc_column($field)->columnflag ne 'F' ) {
 216 %    # If the flag is X, it won't even show up in $svc_acct->virtual_fields.
 217 %    print $svc_www->pvf($field)->widget('HTML', 'edit',
 218 %        $svc_www->getfield($field));
 219 %  }
 220 %}
 221 %
 222 %print '</TABLE><BR><INPUT TYPE="submit" VALUE="Submit">';
 223 %
 224
 225 </FORM>
 226
 227 <% include('/elements/footer.html') %>