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