e-smith-base/sme8/e-smith-base-4.18.1-freebusy.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/useraccounts mezzanine_patched_e-smith-base-4.18.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/useraccounts
--- e-smith-base-4.18.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/useraccounts    2008-03-26 10:49:00.000000000 -0600
+++ mezzanine_patched_e-smith-base-4.18.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/useraccounts  2008-04-01 09:14:53.000000000 -0600
@@ -377,4 +377,19 @@
             An error occurred while trying to delete the user.
         </trans>
     </entry>
+    <entry>
+        <base>FREEBUSY_URL</base>
+        <trans>Calendar Free/Busy URL</trans>
+    </entry>
+    <entry>
+        <base>FREEBUSY_DESCRIPTION</base>
+        <trans>
+            <![CDATA[
+            The Calendar Free/Busy URL needs to be in the following format:<br>
+            https://www.<b>domain.com</b>/horde/kronolith/fb.php?u=<b>user%40domain.com.&nbsp;&nbsp;Note:</b>
+            %40 translates to the @ character.<br>
+            </p>
+            ]]>
+        </trans>
+    </entry>
 </lexicon>
diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.1/root/etc/e-smith/web/functions/useraccounts mezzanine_patched_e-smith-base-4.18.1/root/etc/e-smith/web/functions/useraccounts
--- e-smith-base-4.18.1/root/etc/e-smith/web/functions/useraccounts     2007-01-19 14:33:22.000000000 -0700
+++ mezzanine_patched_e-smith-base-4.18.1/root/etc/e-smith/web/functions/useraccounts   2008-04-01 09:13:23.000000000 -0600
@@ -213,6 +213,11 @@
             >
             <label>FORWARDING_ADDRESS</label>
         </field>
+        <field type="text" id="FreeBusy" size="85"
+            display="get_prop('horde', 'freebusy')">
+            <label>FREEBUSY_URL</label>
+            <description>FREEBUSY_DESCRIPTION</description>
+        </field>
         <field type="select" id="VPNClientAccess" options="'yes' => 'YES',
             'no' => 'NO'" validation="nonblank" value="get_pptp_value()">
             <label>VPN_CLIENT_ACCESS</label>
diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm
--- e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm    2008-03-26 10:49:00.000000000 -0600
+++ mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm  2008-04-01 09:24:23.000000000 -0600
@@ -283,6 +283,9 @@
         my $fwd = $cgi->param('ForwardAddress') ? 
             $cgi->param('ForwardAddress') :
             ($rec ? ($rec->prop('ForwardAddress')) : '');
+        my $fb = $cgi->param('FreeBusy') ? 
+            $cgi->param('FreeBusy') :
+            ($rec ? ($rec->prop('FreeBusy')) : '');
         my $pptp = $cgi->param('VPNClientAccess') ?
             $cgi->param('VPNClientAccess') : 
             ($rec ? ($rec->prop('VPNClientAccess')) : 'no');
@@ -296,6 +299,7 @@
         $cgi->param(-name=>'Phone', -value=>$phone);
         $cgi->param(-name=>'EmailForward', -value=>$emf);
         $cgi->param(-name=>'ForwardAddress', -value=>$fwd);
+        $cgi->param(-name=>'FreeBusy', -value=>$fb);
         $cgi->param(-name=>'VPNClientAccess', -value=>$pptp);
     } else {
         print qq(
@@ -752,6 +756,7 @@
             'Street'         => $self->{cgi}->param('Street'),
             'EmailForward'   => $self->{cgi}->param('EmailForward'),
             'ForwardAddress' => $self->{cgi}->param('ForwardAddress'),
+            'FreeBusy'       => $self->{cgi}->param('FreeBusy'),
             'VPNClientAccess'=> $self->{cgi}->param('VPNClientAccess'),
         );
         $acct->merge_props(%newProperties);
@@ -807,7 +812,7 @@
 
     my %userprops;
     foreach my $field ( qw( FirstName LastName Phone Company Dept
-        City Street EmailForward ForwardAddress VPNClientAccess) )
+        City Street EmailForward ForwardAddress FreeBusy VPNClientAccess) )
     {
         $userprops{$field} = $q->param($field);
     }
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/useraccounts mezzanine_patched_e-smith-base-4.18.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/useraccounts
2			--- e-smith-base-4.18.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/useraccounts 2008-03-26 10:49:00.000000000 -0600
3			+++ mezzanine_patched_e-smith-base-4.18.1/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/useraccounts 2008-04-01 09:14:53.000000000 -0600
4			@@ -377,4 +377,19 @@
5			An error occurred while trying to delete the user.
6			</trans>
7			</entry>
8			+ <entry>
9			+ <base>FREEBUSY_URL</base>
10			+ <trans>Calendar Free/Busy URL</trans>
11			+ </entry>
12			+ <entry>
13			+ <base>FREEBUSY_DESCRIPTION</base>
14			+ <trans>
15			+ <![CDATA[
16			+ The Calendar Free/Busy URL needs to be in the following format:<br>
17			+ https://www.<b>domain.com</b>/horde/kronolith/fb.php?u=<b>user%40domain.com.  Note:</b>
18			+ %40 translates to the @ character.<br>
19			+ </p>
20			+ ]]>
21			+ </trans>
22			+ </entry>
23			</lexicon>
24			diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.1/root/etc/e-smith/web/functions/useraccounts mezzanine_patched_e-smith-base-4.18.1/root/etc/e-smith/web/functions/useraccounts
25			--- e-smith-base-4.18.1/root/etc/e-smith/web/functions/useraccounts 2007-01-19 14:33:22.000000000 -0700
26			+++ mezzanine_patched_e-smith-base-4.18.1/root/etc/e-smith/web/functions/useraccounts 2008-04-01 09:13:23.000000000 -0600
27			@@ -213,6 +213,11 @@
28			>
29			<label>FORWARDING_ADDRESS</label>
30			</field>
31			+ <field type="text" id="FreeBusy" size="85"
32			+ display="get_prop('horde', 'freebusy')">
33			+ <label>FREEBUSY_URL</label>
34			+ <description>FREEBUSY_DESCRIPTION</description>
35			+ </field>
36			<field type="select" id="VPNClientAccess" options="'yes' => 'YES',
37			'no' => 'NO'" validation="nonblank" value="get_pptp_value()">
38			<label>VPN_CLIENT_ACCESS</label>
39			diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm
40			--- e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm 2008-03-26 10:49:00.000000000 -0600
41			+++ mezzanine_patched_e-smith-base-4.18.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/useraccounts.pm 2008-04-01 09:24:23.000000000 -0600
42			@@ -283,6 +283,9 @@
43			my $fwd = $cgi->param('ForwardAddress') ?
44			$cgi->param('ForwardAddress') :
45			($rec ? ($rec->prop('ForwardAddress')) : '');
46			+ my $fb = $cgi->param('FreeBusy') ?
47			+ $cgi->param('FreeBusy') :
48			+ ($rec ? ($rec->prop('FreeBusy')) : '');
49			my $pptp = $cgi->param('VPNClientAccess') ?
50			$cgi->param('VPNClientAccess') :
51			($rec ? ($rec->prop('VPNClientAccess')) : 'no');
52			@@ -296,6 +299,7 @@
53			$cgi->param(-name=>'Phone', -value=>$phone);
54			$cgi->param(-name=>'EmailForward', -value=>$emf);
55			$cgi->param(-name=>'ForwardAddress', -value=>$fwd);
56			+ $cgi->param(-name=>'FreeBusy', -value=>$fb);
57			$cgi->param(-name=>'VPNClientAccess', -value=>$pptp);
58			} else {
59			print qq(
60			@@ -752,6 +756,7 @@
61			'Street' => $self->{cgi}->param('Street'),
62			'EmailForward' => $self->{cgi}->param('EmailForward'),
63			'ForwardAddress' => $self->{cgi}->param('ForwardAddress'),
64			+ 'FreeBusy' => $self->{cgi}->param('FreeBusy'),
65			'VPNClientAccess'=> $self->{cgi}->param('VPNClientAccess'),
66			);
67			$acct->merge_props(%newProperties);
68			@@ -807,7 +812,7 @@
69
70			my %userprops;
71			foreach my $field ( qw( FirstName LastName Phone Company Dept
72			- City Street EmailForward ForwardAddress VPNClientAccess) )
73			+ City Street EmailForward ForwardAddress FreeBusy VPNClientAccess) )
74			{
75			$userprops{$field} = $q->param($field);
76			}