X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fsvc_acct.export;h=3b8853bb09b5903882d3ec1abcc0cf6005d5a89f;hp=a7a21b3e58005cd1f95b2d380c783a794adda86a;hb=cf7ca698138c8708c68cb969cc843311e385a7a8;hpb=4d513ff5a17bd3b697502b54c9516577a0a8d3e4

diff --git a/bin/svc_acct.export b/bin/svc_acct.export
index a7a21b3e5..3b8853bb0 100755
--- a/bin/svc_acct.export
+++ b/bin/svc_acct.export
@@ -1,18 +1,11 @@
 #!/usr/bin/perl -w
 #
-# $Id: svc_acct.export,v 1.22 2001-08-12 19:41:25 jeff Exp $
+# $Id: svc_acct.export,v 1.24 2001-09-11 22:20:28 ivan Exp $
 #
 # Create and export password, radius and vpopmail password files:
 # passwd, passwd.adjunct, shadow, acp_passwd, acp_userinfo, acp_dialup
 # users/assign, domains/vdomain/vpasswd
 # Also export sendmail and qmail config files.
-#
-#
-# $Log: svc_acct.export,v $
-# Revision 1.22  2001-08-12 19:41:25  jeff
-# merging vpopmail support branch
-#
-#
 
 use strict;
 use vars qw($conf);
@@ -63,7 +56,7 @@ my $icradius_mysqlsource =
 my $icradius_dbh;
 if ( $icradiusmachines && $conf->exists('icradius_secrets') ) {
   $icradius_dbh = DBI->connect($conf->config('icradius_secrets'))
-    or die $DBI::errstr;;
+    or die $DBI::errstr;
 } else {
   $icradius_dbh = dbh;
 }
@@ -73,6 +66,8 @@ my $textradiusprepend =
     ? $conf->config('textradiusprepend')
     : '';
 
+warn "using depriciated textradiusprepend file" if $textradiusprepend;
+
 my @vpopmailmachines = $conf->config('vpopmailmachines')
   if $conf->exists('vpopmailmachines');