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     $svc_www = new FS::svc_www({});
  33
  34     foreach $_ (split(/-/,$query)) { #get & untaint pkgnum & svcpart
  35       $pkgnum=$1 if /^pkgnum(\d+)$/;
  36       $svcpart=$1 if /^svcpart(\d+)$/;
  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( %username, %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         $username{$svc_acct->getfield('svcnum')}=$svc_acct->getfield('username');
  77       }
  78     }
  79   }
  80
  81
  82   my($d_part_svc,@d_acct_svcparts);
  83   foreach $d_part_svc ( qsearch('part_svc',{'svcdb'=>'svc_domain'}) ) {
  84     push @d_acct_svcparts,$d_part_svc->getfield('svcpart');
  85   }
  86
  87   foreach $i_cust_pkg ( qsearch('cust_pkg',{'custnum'=>$custnum}) ) {
  88     my($cust_pkgnum)=$i_cust_pkg->getfield('pkgnum');
  89     my($acct_svcpart);
  90     foreach $acct_svcpart (@d_acct_svcparts) {
  91       my($i_cust_svc);
  92       foreach $i_cust_svc ( qsearch('cust_svc',{'pkgnum'=>$cust_pkgnum,'svcpart'=>$acct_svcpart}) ) {
  93         my($svc_domain)=qsearchs('svc_domain',{'svcnum'=>$i_cust_svc->getfield('svcnum')});
  94         my $domain_rec;
  95         foreach $domain_rec ( qsearch('domain_record',{
  96             'svcnum'  => $svc_domain->svcnum,
  97             'rectype' => 'A' } ),
  98         qsearch('domain_record',{
  99             'svcnum'  => $svc_domain->svcnum,
 100             'rectype' => 'CNAME'
 101             } ) ) {
 102           $arec{$domain_rec->recnum} =
 103             $domain_rec->reczone eq '@'
 104               ? $svc_domain->domain
 105               : $domain_rec->reczone. '.'. $svc_domain->domain;
 106         }
 107         $arec{'@.'. $svc_domain->domain} = $svc_domain->domain
 108           unless qsearchs('domain_record', { svcnum  => $svc_domain->svcnum,
 109                                              reczone => '@',                } );
 110         $arec{'www.'. $svc_domain->domain} = 'www.'. $svc_domain->domain
 111           unless qsearchs('domain_record', { svcnum  => $svc_domain->svcnum,
 112                                              reczone => 'www',              } );
 113       }
 114     }
 115   }
 116
 117 } elsif ( $action eq 'Edit' ) {
 118
 119   my($domain_rec) = qsearchs('domain_record', { 'recnum'=>$svc_www->recnum });
 120   $arec{$svc_www->recnum} = join '.', $domain_rec->recdata, $domain_rec->reczone;
 121
 122 } else {
 123   die "\$action eq Add, but \$pkgnum is null!\n";
 124 }
 125
 126
 127 my $p1 = popurl(1);
 128 print header("Web Hosting $action", '');
 129
 130 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
 131       "</FONT>"
 132   if $cgi->param('error');
 133
 134 print qq!<FORM ACTION="${p1}process/svc_www.cgi" METHOD=POST>!;
 135
 136 #display
 137
 138
 139
 140 #svcnum
 141 print qq!<INPUT TYPE="hidden" NAME="svcnum" VALUE="$svcnum">!;
 142 print qq!Service #<B>!, $svcnum ? $svcnum : "(NEW)", "</B><BR><BR>";
 143
 144 #pkgnum
 145 print qq!<INPUT TYPE="hidden" NAME="pkgnum" VALUE="$pkgnum">!;
 146
 147 #svcpart
 148 print qq!<INPUT TYPE="hidden" NAME="svcpart" VALUE="$svcpart">!;
 149
 150 my($recnum,$usersvc)=(
 151   $svc_www->recnum,
 152   $svc_www->usersvc,
 153 );
 154
 155 print &ntable("#cccccc",2),
 156       '<TR><TD ALIGN="right">Zone</TD><TD><SELECT NAME="recnum" SIZE=1>';
 157 foreach $_ (keys %arec) {
 158   print "<OPTION", $_ eq $recnum ? " SELECTED" : "",
 159         qq! VALUE="$_">$arec{$_}!;
 160 }
 161 print "</SELECT></TD></TR>";
 162
 163 print '<TR><TD ALIGN="right">Username</TD><TD><SELECT NAME="usersvc" SIZE=1>';
 164 foreach $_ (keys %username) {
 165   print "<OPTION", ($_ eq $usersvc) ? " SELECTED" : "",
 166         qq! VALUE="$_">$username{$_}!;
 167 }
 168 print "</SELECT></TD></TR>";
 169
 170 print '</TABLE><BR><INPUT TYPE="submit" VALUE="Submit">';
 171
 172 print <<END;
 173
 174     </FORM>
 175   </BODY>
 176 </HTML>
 177 END
 178 %>