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         if ( $conf->exists('svc_www-enable_subdomains') ) {
 109           my $domain = $
 110           $extra_sql .= " AND ( reczone = '@' OR reczone = '".
 111                         $svc_domain->domain. ".' )";
 112         }
 113
 114         foreach my $domain_rec (
 115           qsearch( 'domain_record',
 116                    {
 117                      'svcnum' => $svc_domain->svcnum,
 118                    },
 119                    '',
 120                    $extra_sql,
 121           )
 122         ) {
 123           $arec{$domain_rec->recnum} = $domain_rec->zone;
 124         }
 125
 126         if ( $conf->exists('svc_www-enable_subdomains') ) {
 127           $arec{'www.'. $svc_domain->domain} = 'www.'. $svc_domain->domain
 128             unless    qsearchs( 'domain_record', {
 129                                   svcnum  => $svc_domain->svcnum,
 130                                   reczone => 'www',
 131                       } )
 132                    || qsearchs( 'domain_record', {
 133                                   svcnum  => $svc_domain->svcnum,
 134                                   reczone => 'www.'.$svc-domain->domain.'.',
 135                     } );
 136         }
 137
 138         $arec{'@.'. $svc_domain->domain} = $svc_domain->domain
 139           unless   qsearchs('domain_record', {
 140                               svcnum  => $svc_domain->svcnum,
 141                               reczone => '@',
 142                    } )
 143                 || qsearchs('domain_record', {
 144                               svcnum  => $svc_domain->svcnum,
 145                               reczone => $svc_domain->domain.'.',
 146                    } );
 147
 148       }
 149
 150     }
 151   }
 152
 153 } elsif ( $action eq 'Edit' ) {
 154
 155   my($domain_rec) = qsearchs('domain_record', { 'recnum'=>$svc_www->recnum });
 156   $arec{$svc_www->recnum} = join '.', $domain_rec->recdata, $domain_rec->reczone;
 157
 158 } else {
 159   die "\$action eq Add, but \$pkgnum is null!\n";
 160 }
 161
 162
 163 my $p1 = popurl(1);
 164 print header("Web Hosting $action", '');
 165
 166 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
 167       "</FONT>"
 168   if $cgi->param('error');
 169
 170 print qq!<FORM ACTION="${p1}process/svc_www.cgi" METHOD=POST>!;
 171
 172 #display
 173
 174
 175
 176 #svcnum
 177 print qq!<INPUT TYPE="hidden" NAME="svcnum" VALUE="$svcnum">!;
 178 print qq!Service #<B>!, $svcnum ? $svcnum : "(NEW)", "</B><BR><BR>";
 179
 180 #pkgnum
 181 print qq!<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">!;
 182
 183 #svcpart
 184 print qq!<INPUT TYPE="hidden" NAME="svcpart" VALUE="$svcpart">!;
 185
 186 my($recnum,$usersvc)=(
 187   $svc_www->recnum,
 188   $svc_www->usersvc,
 189 );
 190
 191 print &ntable("#cccccc",2),
 192       '<TR><TD ALIGN="right">Zone</TD><TD><SELECT NAME="recnum" SIZE=1>';
 193 foreach $_ (keys %arec) {
 194   print "<OPTION", $_ eq $recnum ? " SELECTED" : "",
 195         qq! VALUE="$_">$arec{$_}!;
 196 }
 197 print "</SELECT></TD></TR>";
 198
 199 print '<TR><TD ALIGN="right">Username</TD><TD><SELECT NAME="usersvc" SIZE=1>';
 200 foreach $_ (keys %svc_acct) {
 201   print "<OPTION", ($_ eq $usersvc) ? " SELECTED" : "",
 202         qq! VALUE="$_">$svc_acct{$_}!;
 203 }
 204 print "</SELECT></TD></TR>";
 205
 206 foreach my $field ($svc_www->virtual_fields) {
 207   if ( $part_svc->part_svc_column($field)->columnflag ne 'F' ) {
 208     # If the flag is X, it won't even show up in $svc_acct->virtual_fields.
 209     print $svc_www->pvf($field)->widget('HTML', 'edit',
 210         $svc_www->getfield($field));
 211   }
 212 }
 213
 214 print '</TABLE><BR><INPUT TYPE="submit" VALUE="Submit">';
 215
 216 print <<END;
 217
 218     </FORM>
 219   </BODY>
 220 </HTML>
 221 END
 222 %>