smeserver-lazy_admin_tools/contribs8/smeserver-lazy_admin_tools-1.0-patch4.patch

diff -up smeserver-lazy_admin_tools-1.0/root/usr/sbin/lat-pptp.patch4 smeserver-lazy_admin_tools-1.0/root/usr/sbin/lat-pptp
--- smeserver-lazy_admin_tools-1.0/root/usr/sbin/lat-pptp.patch4        2012-05-26 19:04:35.000000000 -0400
+++ smeserver-lazy_admin_tools-1.0/root/usr/sbin/lat-pptp       2013-06-24 20:25:45.000000000 -0400
@@ -84,6 +84,19 @@ foreach my $record (@records)
                                or die ("An error occurred while updating account '$username'.\n");
                            last SWITCH;
                        };
+                        ($MVer=="8") && do {
+                            db_set_prop(\%accounts, $username, 'VPNClientAccess', "no");
+                            system("/sbin/e-smith/signal-event", "remoteaccess-update", $username) == 0
+                                or die ("An error occurred while updating account '$username'.\n");
+                            last SWITCH;
+                        };
+                        ($MVer=="9") && do {
+                            db_set_prop(\%accounts, $username, 'VPNClientAccess', "no");
+                            system("/sbin/e-smith/signal-event", "remoteaccess-update", $username) == 0
+                                or die ("An error occurred while updating account '$username'.\n");
+                            last SWITCH;
+                        };
+
                }
             }
             # Activate PPTP
@@ -108,6 +121,19 @@ foreach my $record (@records)
                                or die ("An error occurred while updating account '$username'.\n");
                            last SWITCH;
                        };
+                        ($MVer=="8") && do {
+                            db_set_prop(\%accounts, $username, 'VPNClientAccess', "yes");
+                            system("/sbin/e-smith/signal-event", "remoteaccess-update", $username) == 0
+                                or die ("An error occurred while updating account '$username'.\n");
+                            last SWITCH;
+                        };
+                        ($MVer=="9") && do {
+                            db_set_prop(\%accounts, $username, 'VPNClientAccess', "yes");
+                            system("/sbin/e-smith/signal-event", "remoteaccess-update", $username) == 0
+                                or die ("An error occurred while updating account '$username'.\n");
+                            last SWITCH;
+                        };
+
                }
            }   
             else { print "Unknown argument '$fields[1]' for user $username"; }
1	diff -up smeserver-lazy_admin_tools-1.0/root/usr/sbin/lat-pptp.patch4 smeserver-lazy_admin_tools-1.0/root/usr/sbin/lat-pptp
2	--- smeserver-lazy_admin_tools-1.0/root/usr/sbin/lat-pptp.patch4 2012-05-26 19:04:35.000000000 -0400
3	+++ smeserver-lazy_admin_tools-1.0/root/usr/sbin/lat-pptp 2013-06-24 20:25:45.000000000 -0400
4	@@ -84,6 +84,19 @@ foreach my $record (@records)
5	or die ("An error occurred while updating account '$username'.\n");
6	last SWITCH;
7	};
8	+ ($MVer=="8") && do {
9	+ db_set_prop(\%accounts, $username, 'VPNClientAccess', "no");
10	+ system("/sbin/e-smith/signal-event", "remoteaccess-update", $username) == 0
11	+ or die ("An error occurred while updating account '$username'.\n");
12	+ last SWITCH;
13	+ };
14	+ ($MVer=="9") && do {
15	+ db_set_prop(\%accounts, $username, 'VPNClientAccess', "no");
16	+ system("/sbin/e-smith/signal-event", "remoteaccess-update", $username) == 0
17	+ or die ("An error occurred while updating account '$username'.\n");
18	+ last SWITCH;
19	+ };
20	+
21	}
22	}
23	# Activate PPTP
24	@@ -108,6 +121,19 @@ foreach my $record (@records)
25	or die ("An error occurred while updating account '$username'.\n");
26	last SWITCH;
27	};
28	+ ($MVer=="8") && do {
29	+ db_set_prop(\%accounts, $username, 'VPNClientAccess', "yes");
30	+ system("/sbin/e-smith/signal-event", "remoteaccess-update", $username) == 0
31	+ or die ("An error occurred while updating account '$username'.\n");
32	+ last SWITCH;
33	+ };
34	+ ($MVer=="9") && do {
35	+ db_set_prop(\%accounts, $username, 'VPNClientAccess', "yes");
36	+ system("/sbin/e-smith/signal-event", "remoteaccess-update", $username) == 0
37	+ or die ("An error occurred while updating account '$username'.\n");
38	+ last SWITCH;
39	+ };
40	+
41	}
42	}
43	else { print "Unknown argument '$fields[1]' for user $username"; }