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 print '<TR><TD ALIGN="right">Username</TD><TD><SELECT NAME="usersvc" SIZE=1>';
 192 print '<OPTION VALUE="">(none)';
 193 foreach $_ (keys %svc_acct) {
 194   print "<OPTION", ($_ eq $usersvc) ? " SELECTED" : "",
 195         qq! VALUE="$_">$svc_acct{$_}!;
 196 }
 197 print "</SELECT></TD></TR>";
 198
 199 foreach my $field ($svc_www->virtual_fields) {
 200   if ( $part_svc->part_svc_column($field)->columnflag ne 'F' ) {
 201     # If the flag is X, it won't even show up in $svc_acct->virtual_fields.
 202     print $svc_www->pvf($field)->widget('HTML', 'edit',
 203         $svc_www->getfield($field));
 204   }
 205 }
 206
 207 print '</TABLE><BR><INPUT TYPE="submit" VALUE="Submit">';
 208
 209 print <<END;
 210
 211     </FORM>
 212   </BODY>
 213 </HTML>
 214 END
 215 %>