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