X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fsvc_acct_sm.import;h=b668405f5f94b6c7c7b2bdb95bb6128bd8dee5a0;hb=8c1f9804d9a02c0c054eededeb500c72a640249a;hp=0714af3f190e338aa15f31adca8afb87db34ae3a;hpb=3a95cc316da367ffd248ba29ac594f3efbc9db61;p=freeside.git diff --git a/bin/svc_acct_sm.import b/bin/svc_acct_sm.import index 0714af3f1..b668405f5 100755 --- a/bin/svc_acct_sm.import +++ b/bin/svc_acct_sm.import @@ -1,47 +1,11 @@ #!/usr/bin/perl -Tw # -# $Id: svc_acct_sm.import,v 1.8 2000-12-03 15:14:00 ivan Exp $ -# -# ivan@sisd.com 98-mar-9 -# -# generalized svcparts ivan@sisd.com 98-mar-23 - -# You really need to enable ssh into a shell machine as this needs to rename -# .qmail-extension files. -# -# now an interactive script ivan@sisd.com 98-jun-30 -# -# has an (untested) section for sendmail, s/warn/die/g and generates a program -# to run on your mail machine _later_ instead of ssh'ing for each user -# ivan@sisd.com 98-jul-13 -# -# $Log: svc_acct_sm.import,v $ -# Revision 1.8 2000-12-03 15:14:00 ivan -# bugfixes from Jeff Finucane , thanks! -# -# Revision 1.7 2000/06/29 10:51:52 ivan -# oops, silly mistake -# -# Revision 1.6 2000/06/29 10:48:25 ivan -# make svc_acct_sm skip blank lines in sendmail import -# -# Revision 1.5 2000/02/03 05:16:52 ivan -# beginning of DNS and Apache support -# -# Revision 1.4 1999/03/25 08:42:20 ivan -# import stuff uses Term::Query and spits out (some kinds of) nonsensical input -# -# Revision 1.3 1999/03/24 00:51:55 ivan -# die if no relevant services... cvspain -# -# Revision 1.2 1998/12/10 07:23:18 ivan -# use FS::Conf, need user (for datasrc) -# +# $Id: svc_acct_sm.import,v 1.10 2001-08-21 02:43:18 ivan Exp $ use strict; use vars qw(%d_part_svc %m_part_svc); use Term::Query qw(query); -use FS::SSH qw(iscp); +use Net::SCP qw(iscp); use FS::UID qw(adminsuidsetup datasrc); use FS::Record qw(qsearch qsearchs); use FS::svc_acct_sm;