[freeside-commits] freeside/fs_selfservice/FS-SelfService SelfService.pm, 1.38, 1.39

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService
In directory wavetail.420.am:/tmp/cvs-serv8882

Modified Files:
	SelfService.pm 
Log Message:
rlm_perl hook for prepaid voip radius, RT#4100

Index: SelfService.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/SelfService.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- SelfService.pm	24 Oct 2008 19:45:57 -0000	1.38
+++ SelfService.pm	24 Oct 2008 19:54:11 -0000	1.39
@@ -16,10 +16,6 @@
 
 $DEBUG = 0;
 
-#you can add BEGIN { $FS::SelfService::skip_uid_check = 1; } 
-#if you grant appropriate permissions to whatever user
-$skip_uid_check = 0;
-
 $dir = "/usr/local/freeside";
 $socket =  "$dir/selfservice_socket";
 $socket .= '.'.$tag if defined $tag && length($tag);
@@ -76,6 +72,8 @@
 $ENV{'ENV'} = '';
 $ENV{'BASH_ENV'} = '';
 
+#you can add BEGIN { $FS::SelfService::skip_uid_check = 1; } 
+#if you grant appropriate permissions to whatever user
 my $freeside_uid = scalar(getpwnam('freeside'));
 die "not running as the freeside user\n"
   if $> != $freeside_uid && ! $skip_uid_check;