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	vip-ire	1.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