From 6feb45e3147c6b045d68cdfaf13b3466e94b2bc5 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 26 Jul 1998 21:32:39 +0000 Subject: [PATCH] Initial revision --- htdocs/search/svc_acct_sm.cgi | 128 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 128 insertions(+) create mode 100755 htdocs/search/svc_acct_sm.cgi diff --git a/htdocs/search/svc_acct_sm.cgi b/htdocs/search/svc_acct_sm.cgi new file mode 100755 index 000000000..3b1a4cf4e --- /dev/null +++ b/htdocs/search/svc_acct_sm.cgi @@ -0,0 +1,128 @@ +#!/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 + +} + -- 2.11.0
Mail to
(click here to view mail alias)		Forwards to
(click here to view account)
+END + + print '', ( ($domuser eq '*') ? "(anything)" : $domuser ); + + print < $username\@$mydomain