#!/usr/bin/perl -Tw # # svc_acct_sm.cgi: Search for domains (process form) # # Usage: post form to: # http://server.name/path/svc_domain.cgi # # Note: Should be run setuid freeside as user nobody. # # ivan@voicenet.com 96-mar-5 # # need to look at table in results to make it more readable # # ivan@voicenet.com # # rewrite ivan@sisd.com 98-mar-15 # # Changes to allow page to work at a relative position in server # bmccane@maxbaud.net 98-apr-3 use strict; use CGI::Request; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::Record qw(qsearch qsearchs); my($conf_domain)="/var/spool/freeside/conf/domain"; open(DOMAIN,$conf_domain) or die "Can't open $conf_domain: $!"; my($mydomain)=map { /^(.*)$/ or die "Illegal line in $conf_domain!"; #yes, we trust the file $1 } grep $_ !~ /^(#|$)/, ; close DOMAIN; my($req)=new CGI::Request; # create form object &cgisuidsetup($req->cgi); $req->param('domuser') =~ /^([a-z0-9_\-]{0,32})$/; my($domuser)=$1; $req->param('domain') =~ /^([\w\-\.]+)$/ or die "Illegal domain"; my($svc_domain)=qsearchs('svc_domain',{'domain'=>$1}) or die "Unknown domain"; my($domsvc)=$svc_domain->svcnum; my(@svc_acct_sm); if ($domuser) { @svc_acct_sm=qsearch('svc_acct_sm',{ 'domuser' => $domuser, 'domsvc' => $domsvc, }); } else { @svc_acct_sm=qsearch('svc_acct_sm',{'domsvc' => $domsvc}); } if ( scalar(@svc_acct_sm) == 1 ) { my($svcnum)=$svc_acct_sm[0]->svcnum; $req->cgi->redirect("../view/svc_acct_sm.cgi?$svcnum"); #redirect } elsif ( scalar(@svc_acct_sm) > 1 ) { CGI::Base::SendHeaders(); print < Mail Alias Search Results

Mail Alias Search Results

END my($svc_acct_sm); foreach $svc_acct_sm (@svc_acct_sm) { my($svcnum,$domuser,$domuid,$domsvc)=( $svc_acct_sm->svcnum, $svc_acct_sm->domuser, $svc_acct_sm->domuid, $svc_acct_sm->domsvc, ); my($svc_domain)=qsearchs('svc_domain',{'svcnum'=>$domsvc}); my($domain)=$svc_domain->domain; my($svc_acct)=qsearchs('svc_acct',{'uid'=>$domuid}); my($username)=$svc_acct->username; my($svc_acct_svcnum)=$svc_acct->svcnum; print <\n \n \n \n END } print < END } else { #error CGI::Base::SendHeaders(); # one guess print < Mail Alias Search Error

Mail Alias Search Error

Mail Alias not found.
END }
Mail to
(click here to view mail alias)		 Forwards to
(click here to view account)
END print '', ( ($domuser eq '*') ? "(anything)" : $domuser ); print < $username\@$mydomain