smeserver-shared-folders/contribs7/smeserver-shared-folders-0.1-add_ajaxplorer_support.patch

diff -Nur smeserver-shared-folders-0.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/shares smeserver-shared-folders-0.1_mod/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/shares
--- smeserver-shared-folders-0.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/shares 2011-06-27 19:31:39.000000000 +0200
+++ smeserver-shared-folders-0.1_mod/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/shares     2011-06-27 19:45:48.000000000 +0200
@@ -284,7 +284,7 @@
         <trans>Entire Internet (no password required)</trans>
     </entry>
 
-    <entry> 
+    <entry>
         <base>ENTIRE_INTERNET_PASSWORD</base>
         <trans>Entire Internet (password required)</trans>
     </entry>
@@ -295,6 +295,16 @@
     </entry>
 
     <entry>
+        <base>ENTIRE_INTERNET_AJAXPLORER</base>
+        <trans>Entire Internet with a web-based management interface</trans>
+    </entry>
+
+    <entry>
+        <base>LOCAL_NETWORK_AJAXPLORER</base>
+        <trans>Local network with a web-based management interface</trans>
+    </entry>
+
+    <entry>
         <base>ENABLED_BROWSEABLE</base>
         <trans>Enabled, browseable</trans>
     </entry>
diff -Nur smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm
--- smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm 2011-06-27 19:31:39.000000000 +0200
+++ smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm     2011-06-27 19:50:55.000000000 +0200
@@ -382,7 +382,7 @@
 # access drop down list.
 
 sub httpAccess_list {
-    return {
+    my $list = {
         'none'             => 'NONE',
         'local'            => 'LOCAL_NETWORK_NO_PASSWORD',
         'local-pw'         => 'LOCAL_NETWORK_PASSWORD',
@@ -390,6 +390,15 @@
         'global-pw'        => 'ENTIRE_INTERNET_PASSWORD',
         'global-pw-remote' => 'ENTIRE_INTERNET_PASSWORD_REMOTE'
     };
+
+    # Check if ajaxplorer is enabled
+    if (($configdb->get('ajaxplorer')->prop('status') || 'disabled') eq 'enabled'){
+        my $access = (($configdb->get('ajaxplorer')->prop('access') || 'private') eq 'public') ?
+            'ENTIRE_INTERNET':'LOCAL_NETWORK';
+        $list->{'ajaxplorer'} = $access . '_AJAXPLORER';
+    }
+
+    return $list;
 }
 
 # VALIDATION ROUTINES
1	diff -Nur smeserver-shared-folders-0.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/shares smeserver-shared-folders-0.1_mod/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/shares
2	--- smeserver-shared-folders-0.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/shares 2011-06-27 19:31:39.000000000 +0200
3	+++ smeserver-shared-folders-0.1_mod/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/shares 2011-06-27 19:45:48.000000000 +0200
4	@@ -284,7 +284,7 @@
5	<trans>Entire Internet (no password required)</trans>
6	</entry>
7
8	- <entry>
9	+ <entry>
10	<base>ENTIRE_INTERNET_PASSWORD</base>
11	<trans>Entire Internet (password required)</trans>
12	</entry>
13	@@ -295,6 +295,16 @@
14	</entry>
15
16	<entry>
17	+ <base>ENTIRE_INTERNET_AJAXPLORER</base>
18	+ <trans>Entire Internet with a web-based management interface</trans>
19	+ </entry>
20	+
21	+ <entry>
22	+ <base>LOCAL_NETWORK_AJAXPLORER</base>
23	+ <trans>Local network with a web-based management interface</trans>
24	+ </entry>
25	+
26	+ <entry>
27	<base>ENABLED_BROWSEABLE</base>
28	<trans>Enabled, browseable</trans>
29	</entry>
30	diff -Nur smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm
31	--- smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm 2011-06-27 19:31:39.000000000 +0200
32	+++ smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm 2011-06-27 19:50:55.000000000 +0200
33	@@ -382,7 +382,7 @@
34	# access drop down list.
35
36	sub httpAccess_list {
37	- return {
38	+ my $list = {
39	'none' => 'NONE',
40	'local' => 'LOCAL_NETWORK_NO_PASSWORD',
41	'local-pw' => 'LOCAL_NETWORK_PASSWORD',
42	@@ -390,6 +390,15 @@
43	'global-pw' => 'ENTIRE_INTERNET_PASSWORD',
44	'global-pw-remote' => 'ENTIRE_INTERNET_PASSWORD_REMOTE'
45	};
46	+
47	+ # Check if ajaxplorer is enabled
48	+ if (($configdb->get('ajaxplorer')->prop('status') \|\| 'disabled') eq 'enabled'){
49	+ my $access = (($configdb->get('ajaxplorer')->prop('access') \|\| 'private') eq 'public') ?
50	+ 'ENTIRE_INTERNET':'LOCAL_NETWORK';
51	+ $list->{'ajaxplorer'} = $access . '_AJAXPLORER';
52	+ }
53	+
54	+ return $list;
55	}
56
57	# VALIDATION ROUTINES