httemplate/edit/svc_www.cgi

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