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_part_svc,@u_acct_svcparts);
  60   foreach $u_part_svc ( qsearch('part_svc',{'svcdb'=>'svc_acct'}) ) {
  61     push @u_acct_svcparts,$u_part_svc->getfield('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->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->getfield('pkgnum');
  90     my($acct_svcpart);
  91     foreach $acct_svcpart (@d_acct_svcparts) {
  92       my($i_cust_svc);
  93       foreach $i_cust_svc ( qsearch('cust_svc',{'pkgnum'=>$cust_pkgnum,'svcpart'=>$acct_svcpart}) ) {
  94         my($svc_domain)=qsearchs('svc_domain',{'svcnum'=>$i_cust_svc->getfield('svcnum')});
  95         my $domain_rec;
  96         foreach $domain_rec ( qsearch('domain_record',{
  97             'svcnum'  => $svc_domain->svcnum,
  98             'rectype' => 'A' } ),
  99         qsearch('domain_record',{
 100             'svcnum'  => $svc_domain->svcnum,
 101             'rectype' => 'CNAME'
 102             } ) ) {
 103           $arec{$domain_rec->recnum} =
 104             $domain_rec->reczone eq '@'
 105               ? $svc_domain->domain
 106               : $domain_rec->reczone. '.'. $svc_domain->domain;
 107         }
 108         $arec{'@.'. $svc_domain->domain} = $svc_domain->domain
 109           unless qsearchs('domain_record', { svcnum  => $svc_domain->svcnum,
 110                                              reczone => '@',                } );
 111         $arec{'www.'. $svc_domain->domain} = 'www.'. $svc_domain->domain
 112           unless qsearchs('domain_record', { svcnum  => $svc_domain->svcnum,
 113                                              reczone => 'www',              } );
 114       }
 115     }
 116   }
 117
 118 } elsif ( $action eq 'Edit' ) {
 119
 120   my($domain_rec) = qsearchs('domain_record', { 'recnum'=>$svc_www->recnum });
 121   $arec{$svc_www->recnum} = join '.', $domain_rec->recdata, $domain_rec->reczone;
 122
 123 } else {
 124   die "\$action eq Add, but \$pkgnum is null!\n";
 125 }
 126
 127
 128 my $p1 = popurl(1);
 129 print header("Web Hosting $action", '');
 130
 131 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
 132       "</FONT>"
 133   if $cgi->param('error');
 134
 135 print qq!<FORM ACTION="${p1}process/svc_www.cgi" METHOD=POST>!;
 136
 137 #display
 138
 139
 140
 141 #svcnum
 142 print qq!<INPUT TYPE="hidden" NAME="svcnum" VALUE="$svcnum">!;
 143 print qq!Service #<B>!, $svcnum ? $svcnum : "(NEW)", "</B><BR><BR>";
 144
 145 #pkgnum
 146 print qq!<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">!;
 147
 148 #svcpart
 149 print qq!<INPUT TYPE="hidden" NAME="svcpart" VALUE="$svcpart">!;
 150
 151 my($recnum,$usersvc)=(
 152   $svc_www->recnum,
 153   $svc_www->usersvc,
 154 );
 155
 156 print &ntable("#cccccc",2),
 157       '<TR><TD ALIGN="right">Zone</TD><TD><SELECT NAME="recnum" SIZE=1>';
 158 foreach $_ (keys %arec) {
 159   print "<OPTION", $_ eq $recnum ? " SELECTED" : "",
 160         qq! VALUE="$_">$arec{$_}!;
 161 }
 162 print "</SELECT></TD></TR>";
 163
 164 print '<TR><TD ALIGN="right">Username</TD><TD><SELECT NAME="usersvc" SIZE=1>';
 165 foreach $_ (keys %svc_acct) {
 166   print "<OPTION", ($_ eq $usersvc) ? " SELECTED" : "",
 167         qq! VALUE="$_">$svc_acct{$_}!;
 168 }
 169 print "</SELECT></TD></TR>";
 170
 171 foreach my $field ($svc_www->virtual_fields) {
 172   if ( $part_svc->part_svc_column($field)->columnflag ne 'F' ) {
 173     # If the flag is X, it won't even show up in $svc_acct->virtual_fields.
 174     print $svc_www->pvf($field)->widget('HTML', 'edit',
 175         $svc_www->getfield($field));
 176   }
 177 }
 178
 179 print '</TABLE><BR><INPUT TYPE="submit" VALUE="Submit">';
 180
 181 print <<END;
 182
 183     </FORM>
 184   </BODY>
 185 </HTML>
 186 END
 187 %>