httemplate/edit/svc_www.cgi

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