httemplate/edit/svc_www.cgi

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