smeserver-fetchmail/contribs10/smeserver-fetchmail-1.6-bz11058-fixpanel.patch

diff -Nur --no-dereference smeserver-fetchmail-1.6.old/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/fetchmail smeserver-fetchmail-1.6/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/fetchmail
--- smeserver-fetchmail-1.6.old/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/fetchmail       2021-11-17 14:18:15.236000000 -0500
+++ smeserver-fetchmail-1.6/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/fetchmail   2021-11-17 14:22:44.155000000 -0500
@@ -459,4 +459,18 @@
         ]]>
         </trans>
     </entry>
+        <entry>
+            <base>SET_FETCHMAIL_SATUS</base>
+            <trans>Confirm you want to change Fetchmail status</trans>
+        </entry>
+        <entry>
+            <base>RoutingIMPAPPOP</base>
+            <trans>Confirm you want to change IMAP and POP external traffic filtering status</trans>
+        </entry>
+
+        <entry>
+            <base>RoutingNNTP</base>
+            <trans>Confirm you want to change NNTP external traffic filtering status</trans>
+        </entry>
+
 </lexicon>
diff -Nur --no-dereference smeserver-fetchmail-1.6.old/root/etc/e-smith/templates/etc/rc.d/init.d/masq/35transproxy-fetchmail smeserver-fetchmail-1.6/root/etc/e-smith/templates/etc/rc.d/init.d/masq/35transproxy-fetchmail
--- smeserver-fetchmail-1.6.old/root/etc/e-smith/templates/etc/rc.d/init.d/masq/35transproxy-fetchmail  2021-11-17 14:18:15.224000000 -0500
+++ smeserver-fetchmail-1.6/root/etc/e-smith/templates/etc/rc.d/init.d/masq/35transproxy-fetchmail      2021-11-17 14:19:49.527000000 -0500
@@ -24,19 +24,6 @@
         $OUT .= "\t-i \$INTERNALIF -p tcp ! --dst \$LOCALIP --dport 143 --jump DROP\n";
 
     }
-    my $routingSMTP = $FetchMails{ "RoutingSMTP" } || "YES" ;
-    if ( $routingSMTP eq "NO" ) {
-
-        # Users on LAN are not allowed to access to SMTP
-        # servers on Internet.
-
-        $OUT .= "    /sbin/iptables --append FORWARD\\\n";
-        $OUT .= "\t-i \$INTERNALIF -p tcp ! --dst \$LOCALIP --dport 25\\\n";
-        $OUT .= "\t--jump LOG --log-prefix \"denylogfetchmail: \"\n";
-        $OUT .= "    /sbin/iptables --append FORWARD\\\n";
-        $OUT .= "\t-i \$INTERNALIF -p tcp ! --dst \$LOCALIP --dport 25 --jump DROP\n";
-
-    }
     my $routingNNTP = $FetchMails{ "RoutingNNTP" } || "YES" ;
     if ( $routingNNTP eq "NO" ) {
 
diff -Nur --no-dereference smeserver-fetchmail-1.6.old/root/etc/e-smith/web/functions/fetchmail smeserver-fetchmail-1.6/root/etc/e-smith/web/functions/fetchmail
--- smeserver-fetchmail-1.6.old/root/etc/e-smith/web/functions/fetchmail        2021-11-17 14:18:15.246000000 -0500
+++ smeserver-fetchmail-1.6/root/etc/e-smith/web/functions/fetchmail    2021-11-17 14:19:49.021000000 -0500
@@ -182,8 +182,9 @@
          to the front page.
     -->
     <page
-        name="Service1"
+        name="FetchmailStatus"
         post-event="fetchmail_enable_disable">
+        <title>SET_FETCHMAIL_SATUS</title>
     </page>
 
     <!-- page 6 
@@ -191,8 +192,9 @@
          to the front page.
     -->
     <page
-        name="Service2"
+        name="Routing"
         post-event="fetchmail_routing">
+        <title>RoutingIMPAPPOP</title>
     </page>
 
     <!-- page 7 
@@ -200,8 +202,9 @@
          to the front page.
     -->
     <page
-        name="Service3"
+        name="RoutingSMTP"
         post-event="fetchmail_routingSMTP">
+        <title>RoutingSMTP</title>
     </page>
 
     <!-- page 8 
@@ -209,8 +212,9 @@
          to the front page.
     -->
     <page
-        name="Service4"
+        name="RoutingNNTP"
         post-event="fetchmail_routingNNTP">
+        <title>RoutingNNTP</title>
     </page>
 
     <!-- page 9 
@@ -218,8 +222,14 @@
          to the front page.
     -->
     <page
-        name="Service5"
+        name="SMTPProxy"
         post-event="fetchmail_SMTPProxy">
     </page>
+    <!-- keep this one so next button display on previous one 
+    -->
+    <page
+        name="Dummy">
+    </page>
+
 
 </form>
diff -Nur --no-dereference smeserver-fetchmail-1.6.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm smeserver-fetchmail-1.6/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm
--- smeserver-fetchmail-1.6.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm   2021-11-17 14:18:15.271000000 -0500
+++ smeserver-fetchmail-1.6/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm       2021-11-17 14:19:49.279000000 -0500
@@ -78,7 +78,7 @@
     my $self = esmith::FormMagick->new();
     bless $self, $class;
     # Uncomment the following line for debugging.
-    #$self->debug(TRUE);
+    # $self->debug(TRUE);
     return $self;
 }
 
@@ -177,12 +177,14 @@
 
     my $FM = $db->get('FetchMails')
         or ($self->error('ERR_NO_FETCHMAIL_RECORD') and return undef) ;
+    my $QP = $db->get('qpsmtpd')
+        or ($self->error('ERR_NO_QPSMTPD_RECORD') and return undef) ;
     my $FMStatus = 0 ;
     $FMStatus = 1 if ( ( $FM->prop('status') || 'disabled' ) eq 'enabled' ) ;
     my $FMRouting = 0 ;
     $FMRouting = 1 if ( ( $FM->prop('Routing') || 'NO' ) eq 'YES' ) ;
     my $FMRoutingSMTP = 0 ;
-    $FMRoutingSMTP = 1 if ( ( $FM->prop('RoutingSMTP') || 'NO' ) eq 'YES' ) ;
+    $FMRoutingSMTP = 1 if ( ( $QP->prop('Proxy') || 'disabled' ) eq 'disabled' ) ;
     my $FMRoutingNNTP = 0 ;
     $FMRoutingNNTP = 1 if ( ( $FM->prop('RoutingNNTP') || 'NO' ) eq 'YES' ) ;
     # we need also information about smtpfront-qmail
@@ -197,7 +199,7 @@
     my $SmtpProxy = $db->get($MailSystem) 
         or ($self->error('ERR_NO_SMTPFRONT-QMAIL_RECORD') and return undef) ;
     my $FMRoutingSMTPProxy = 0 ;
-    $FMRoutingSMTPProxy = 1 if ( ( $SmtpProxy->prop('Proxy') || 'disabled' ) eq 'enabled' ) ;
+    $FMRoutingSMTPProxy = 1 if ( ( $SmtpProxy->prop('Proxy') || 'disabled' ) eq 'transparent' ) ;
     print $q->start_table({-class => 'sme-noborder'}), "\n";
     print $q->Tr(
         esmith::cgi::genCell( $q,
@@ -206,7 +208,7 @@
         esmith::cgi::genCell( $q,
             $self->localise('SERVICE_' . $FMStatus) , "sme-noborders-label" ),
         esmith::cgi::genCell( $q, "<a class=\"button-like\""
-            . "href=\"fetchmail?page=5&Next=First&Current=" . $FMStatus . "\">"
+            . "href=\"fetchmail?page=0&wherenext=FetchmailStatus&Next=First&Current=" . $FMStatus . "\">"
             . $self->localise('BUTTON_LABEL_SERVICE_' . $FMStatus )
             . "</a>", "sme-noborders-content" ),"\n",
     ),"\n" ;
@@ -218,7 +220,7 @@
             $self->localise('ROUTING_' . $FMRouting) , "sme-noborders-label" ),
         esmith::cgi::genCell( $q,
             "<a class=\"button-like\""
-            . "href=\"fetchmail?page=6&Next=First&CurrentPOP=" . $FMRouting . "\">"
+            . "href=\"fetchmail?page=0&wherenext=Routing&Next=First&CurrentPOP=" . $FMRouting . "\">"
             . $self->localise('BUTTON_LABEL_ROUTING_' . $FMRouting)
             . "</a>" , "sme-noborders-content" ),"\n",
     ),"\n" ;
@@ -230,7 +232,7 @@
             $self->localise('ROUTINGNNTP_' . $FMRoutingNNTP) , "sme-noborders-label" ),
         esmith::cgi::genCell( $q,
             "<a class=\"button-like\""
-            . "href=\"fetchmail?page=8&Next=First&CurrentNNTP=" . $FMRoutingNNTP . "\">"
+            . "href=\"fetchmail?page=0&wherenext=RoutingNNTP&Next=First&CurrentNNTP=" . $FMRoutingNNTP . "\">"
             . $self->localise('BUTTON_LABEL_ROUTINGNNTP_' . $FMRoutingNNTP)
             . "</a>" , "sme-noborders-content" ),"\n",
     ),"\n" ;
@@ -242,8 +244,8 @@
             $self->localise('ROUTINGSMTP_' . $FMRoutingSMTP) , "sme-noborders-label" ),
         esmith::cgi::genCell( $q,
             "<a class=\"button-like\""
-            . "href=\"fetchmail?page=7&Next=First&CurrentSMTP=" . $FMRoutingSMTP . "\">"
-            . $self->localise('BUTTON_LABEL_ROUTINGSMTP_' . $FMRoutingSMTP)
+            . "href=\"proxy\">"
+            . $self->localise('MODIFY')
             . "</a>" , "sme-noborders-content" ),"\n",
     ),"\n" ;
     print $q->Tr(
@@ -254,10 +256,10 @@
             $self->localise('ROUTINGSMTPPROXY_' . $FMRoutingSMTPProxy) , "sme-noborders-label" ),
         esmith::cgi::genCell( $q,
             "<a class=\"button-like\""
-            . "href=\"fetchmail?page=9&Next=First&CurrentSMTPProxy=" . $FMRoutingSMTPProxy . "\">"
-            . $self->localise('BUTTON_LABEL_ROUTINGSMTPPROXY_' . $FMRoutingSMTPProxy)
+            . "href=\"proxy\">"
+            . $self->localise('MODIFY')
             . "</a>" , "sme-noborders-content" ),"\n",
-    ),"\n" ;
+    ),"\n" unless  $SmtpProxy->prop('Proxy') eq "blocked" ;
     print $q->end_table(),"\n";
     return undef ;
 }
@@ -561,11 +563,12 @@
 sub fetchmail_enable_disable {
     my $self = shift ;
     $self->debug_msg("Start of sub 'fetchmail_enable_disable'.") ;
-    my $current = $self->{cgi}->param('Current') ;
-    $self->debug_msg("'fetchmail_enable_disable' : \$current = $current") ;
+    #my $current = $self->{cgi}->param('Current') ;
+    #$self->debug_msg("'fetchmail_enable_disable' : \$current = $current") ;
     my $FM = $db->get('FetchMails') 
         || ($self->error('ERR_NO_FETCHMAIL_RECORD') and return undef);
-    if ( $current ) {
+    my $current = $FM->prop("status") || "disabled";
+    if ( $current eq "enabled" ) {
         $FM->set_prop("status", "disabled") ;
         $self->debug_msg("'fetchmail_enable_disable' : fetchmail disabled.") ;
     } else {
@@ -850,10 +853,12 @@
 =head2 fetchmail_routingSMTP
 
 This method change the 'SMTP routing' mode of Fetchmail
+to be removed, not used anymore on SME 10
 
 =cut
 
 sub fetchmail_routingSMTP {
+    return undef ;
     my $self = shift ;
     $self->debug_msg("Start of sub 'fetchmail_routingSMTP'.") ;
     my $current = $self->{cgi}->param('CurrentSMTP') ;
@@ -880,10 +885,12 @@
 =head2 fetchmail_SMTPProxy
 
 This method change the state of the SME SMTP Proxy
+to be removed, not used anymore on SME 10
 
 =cut
 
 sub fetchmail_SMTPProxy {
+    return undef ;
     my $self = shift ;
     $self->debug_msg("Start of sub 'fetchmail_SMTPProxy'.") ;
     my $current = $self->{cgi}->param('CurrentSMTPProxy') ;
1	diff -Nur --no-dereference smeserver-fetchmail-1.6.old/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/fetchmail smeserver-fetchmail-1.6/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/fetchmail
2	--- smeserver-fetchmail-1.6.old/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/fetchmail 2021-11-17 14:18:15.236000000 -0500
3	+++ smeserver-fetchmail-1.6/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/fetchmail 2021-11-17 14:22:44.155000000 -0500
4	@@ -459,4 +459,18 @@
5	]]>
6	</trans>
7	</entry>
8	+ <entry>
9	+ <base>SET_FETCHMAIL_SATUS</base>
10	+ <trans>Confirm you want to change Fetchmail status</trans>
11	+ </entry>
12	+ <entry>
13	+ <base>RoutingIMPAPPOP</base>
14	+ <trans>Confirm you want to change IMAP and POP external traffic filtering status</trans>
15	+ </entry>
16	+
17	+ <entry>
18	+ <base>RoutingNNTP</base>
19	+ <trans>Confirm you want to change NNTP external traffic filtering status</trans>
20	+ </entry>
21	+
22	</lexicon>
23	diff -Nur --no-dereference smeserver-fetchmail-1.6.old/root/etc/e-smith/templates/etc/rc.d/init.d/masq/35transproxy-fetchmail smeserver-fetchmail-1.6/root/etc/e-smith/templates/etc/rc.d/init.d/masq/35transproxy-fetchmail
24	--- smeserver-fetchmail-1.6.old/root/etc/e-smith/templates/etc/rc.d/init.d/masq/35transproxy-fetchmail 2021-11-17 14:18:15.224000000 -0500
25	+++ smeserver-fetchmail-1.6/root/etc/e-smith/templates/etc/rc.d/init.d/masq/35transproxy-fetchmail 2021-11-17 14:19:49.527000000 -0500
26	@@ -24,19 +24,6 @@
27	$OUT .= "\t-i \$INTERNALIF -p tcp ! --dst \$LOCALIP --dport 143 --jump DROP\n";
28
29	}
30	- my $routingSMTP = $FetchMails{ "RoutingSMTP" } \|\| "YES" ;
31	- if ( $routingSMTP eq "NO" ) {
32	-
33	- # Users on LAN are not allowed to access to SMTP
34	- # servers on Internet.
35	-
36	- $OUT .= " /sbin/iptables --append FORWARD\\\n";
37	- $OUT .= "\t-i \$INTERNALIF -p tcp ! --dst \$LOCALIP --dport 25\\\n";
38	- $OUT .= "\t--jump LOG --log-prefix \"denylogfetchmail: \"\n";
39	- $OUT .= " /sbin/iptables --append FORWARD\\\n";
40	- $OUT .= "\t-i \$INTERNALIF -p tcp ! --dst \$LOCALIP --dport 25 --jump DROP\n";
41	-
42	- }
43	my $routingNNTP = $FetchMails{ "RoutingNNTP" } \|\| "YES" ;
44	if ( $routingNNTP eq "NO" ) {
45
46	diff -Nur --no-dereference smeserver-fetchmail-1.6.old/root/etc/e-smith/web/functions/fetchmail smeserver-fetchmail-1.6/root/etc/e-smith/web/functions/fetchmail
47	--- smeserver-fetchmail-1.6.old/root/etc/e-smith/web/functions/fetchmail 2021-11-17 14:18:15.246000000 -0500
48	+++ smeserver-fetchmail-1.6/root/etc/e-smith/web/functions/fetchmail 2021-11-17 14:19:49.021000000 -0500
49	@@ -182,8 +182,9 @@
50	to the front page.
51	-->
52	<page
53	- name="Service1"
54	+ name="FetchmailStatus"
55	post-event="fetchmail_enable_disable">
56	+ <title>SET_FETCHMAIL_SATUS</title>
57	</page>
58
59	<!-- page 6
60	@@ -191,8 +192,9 @@
61	to the front page.
62	-->
63	<page
64	- name="Service2"
65	+ name="Routing"
66	post-event="fetchmail_routing">
67	+ <title>RoutingIMPAPPOP</title>
68	</page>
69
70	<!-- page 7
71	@@ -200,8 +202,9 @@
72	to the front page.
73	-->
74	<page
75	- name="Service3"
76	+ name="RoutingSMTP"
77	post-event="fetchmail_routingSMTP">
78	+ <title>RoutingSMTP</title>
79	</page>
80
81	<!-- page 8
82	@@ -209,8 +212,9 @@
83	to the front page.
84	-->
85	<page
86	- name="Service4"
87	+ name="RoutingNNTP"
88	post-event="fetchmail_routingNNTP">
89	+ <title>RoutingNNTP</title>
90	</page>
91
92	<!-- page 9
93	@@ -218,8 +222,14 @@
94	to the front page.
95	-->
96	<page
97	- name="Service5"
98	+ name="SMTPProxy"
99	post-event="fetchmail_SMTPProxy">
100	</page>
101	+ <!-- keep this one so next button display on previous one
102	+ -->
103	+ <page
104	+ name="Dummy">
105	+ </page>
106	+
107
108	</form>
109	diff -Nur --no-dereference smeserver-fetchmail-1.6.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm smeserver-fetchmail-1.6/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm
110	--- smeserver-fetchmail-1.6.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm 2021-11-17 14:18:15.271000000 -0500
111	+++ smeserver-fetchmail-1.6/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm 2021-11-17 14:19:49.279000000 -0500
112	@@ -78,7 +78,7 @@
113	my $self = esmith::FormMagick->new();
114	bless $self, $class;
115	# Uncomment the following line for debugging.
116	- #$self->debug(TRUE);
117	+ # $self->debug(TRUE);
118	return $self;
119	}
120
121	@@ -177,12 +177,14 @@
122
123	my $FM = $db->get('FetchMails')
124	or ($self->error('ERR_NO_FETCHMAIL_RECORD') and return undef) ;
125	+ my $QP = $db->get('qpsmtpd')
126	+ or ($self->error('ERR_NO_QPSMTPD_RECORD') and return undef) ;
127	my $FMStatus = 0 ;
128	$FMStatus = 1 if ( ( $FM->prop('status') \|\| 'disabled' ) eq 'enabled' ) ;
129	my $FMRouting = 0 ;
130	$FMRouting = 1 if ( ( $FM->prop('Routing') \|\| 'NO' ) eq 'YES' ) ;
131	my $FMRoutingSMTP = 0 ;
132	- $FMRoutingSMTP = 1 if ( ( $FM->prop('RoutingSMTP') \|\| 'NO' ) eq 'YES' ) ;
133	+ $FMRoutingSMTP = 1 if ( ( $QP->prop('Proxy') \|\| 'disabled' ) eq 'disabled' ) ;
134	my $FMRoutingNNTP = 0 ;
135	$FMRoutingNNTP = 1 if ( ( $FM->prop('RoutingNNTP') \|\| 'NO' ) eq 'YES' ) ;
136	# we need also information about smtpfront-qmail
137	@@ -197,7 +199,7 @@
138	my $SmtpProxy = $db->get($MailSystem)
139	or ($self->error('ERR_NO_SMTPFRONT-QMAIL_RECORD') and return undef) ;
140	my $FMRoutingSMTPProxy = 0 ;
141	- $FMRoutingSMTPProxy = 1 if ( ( $SmtpProxy->prop('Proxy') \|\| 'disabled' ) eq 'enabled' ) ;
142	+ $FMRoutingSMTPProxy = 1 if ( ( $SmtpProxy->prop('Proxy') \|\| 'disabled' ) eq 'transparent' ) ;
143	print $q->start_table({-class => 'sme-noborder'}), "\n";
144	print $q->Tr(
145	esmith::cgi::genCell( $q,
146	@@ -206,7 +208,7 @@
147	esmith::cgi::genCell( $q,
148	$self->localise('SERVICE_' . $FMStatus) , "sme-noborders-label" ),
149	esmith::cgi::genCell( $q, "<a class=\"button-like\""
150	- . "href=\"fetchmail?page=5&Next=First&Current=" . $FMStatus . "\">"
151	+ . "href=\"fetchmail?page=0&wherenext=FetchmailStatus&Next=First&Current=" . $FMStatus . "\">"
152	. $self->localise('BUTTON_LABEL_SERVICE_' . $FMStatus )
153	. "</a>", "sme-noborders-content" ),"\n",
154	),"\n" ;
155	@@ -218,7 +220,7 @@
156	$self->localise('ROUTING_' . $FMRouting) , "sme-noborders-label" ),
157	esmith::cgi::genCell( $q,
158	"<a class=\"button-like\""
159	- . "href=\"fetchmail?page=6&Next=First&CurrentPOP=" . $FMRouting . "\">"
160	+ . "href=\"fetchmail?page=0&wherenext=Routing&Next=First&CurrentPOP=" . $FMRouting . "\">"
161	. $self->localise('BUTTON_LABEL_ROUTING_' . $FMRouting)
162	. "</a>" , "sme-noborders-content" ),"\n",
163	),"\n" ;
164	@@ -230,7 +232,7 @@
165	$self->localise('ROUTINGNNTP_' . $FMRoutingNNTP) , "sme-noborders-label" ),
166	esmith::cgi::genCell( $q,
167	"<a class=\"button-like\""
168	- . "href=\"fetchmail?page=8&Next=First&CurrentNNTP=" . $FMRoutingNNTP . "\">"
169	+ . "href=\"fetchmail?page=0&wherenext=RoutingNNTP&Next=First&CurrentNNTP=" . $FMRoutingNNTP . "\">"
170	. $self->localise('BUTTON_LABEL_ROUTINGNNTP_' . $FMRoutingNNTP)
171	. "</a>" , "sme-noborders-content" ),"\n",
172	),"\n" ;
173	@@ -242,8 +244,8 @@
174	$self->localise('ROUTINGSMTP_' . $FMRoutingSMTP) , "sme-noborders-label" ),
175	esmith::cgi::genCell( $q,
176	"<a class=\"button-like\""
177	- . "href=\"fetchmail?page=7&Next=First&CurrentSMTP=" . $FMRoutingSMTP . "\">"
178	- . $self->localise('BUTTON_LABEL_ROUTINGSMTP_' . $FMRoutingSMTP)
179	+ . "href=\"proxy\">"
180	+ . $self->localise('MODIFY')
181	. "</a>" , "sme-noborders-content" ),"\n",
182	),"\n" ;
183	print $q->Tr(
184	@@ -254,10 +256,10 @@
185	$self->localise('ROUTINGSMTPPROXY_' . $FMRoutingSMTPProxy) , "sme-noborders-label" ),
186	esmith::cgi::genCell( $q,
187	"<a class=\"button-like\""
188	- . "href=\"fetchmail?page=9&Next=First&CurrentSMTPProxy=" . $FMRoutingSMTPProxy . "\">"
189	- . $self->localise('BUTTON_LABEL_ROUTINGSMTPPROXY_' . $FMRoutingSMTPProxy)
190	+ . "href=\"proxy\">"
191	+ . $self->localise('MODIFY')
192	. "</a>" , "sme-noborders-content" ),"\n",
193	- ),"\n" ;
194	+ ),"\n" unless $SmtpProxy->prop('Proxy') eq "blocked" ;
195	print $q->end_table(),"\n";
196	return undef ;
197	}
198	@@ -561,11 +563,12 @@
199	sub fetchmail_enable_disable {
200	my $self = shift ;
201	$self->debug_msg("Start of sub 'fetchmail_enable_disable'.") ;
202	- my $current = $self->{cgi}->param('Current') ;
203	- $self->debug_msg("'fetchmail_enable_disable' : \$current = $current") ;
204	+ #my $current = $self->{cgi}->param('Current') ;
205	+ #$self->debug_msg("'fetchmail_enable_disable' : \$current = $current") ;
206	my $FM = $db->get('FetchMails')
207	\|\| ($self->error('ERR_NO_FETCHMAIL_RECORD') and return undef);
208	- if ( $current ) {
209	+ my $current = $FM->prop("status") \|\| "disabled";
210	+ if ( $current eq "enabled" ) {
211	$FM->set_prop("status", "disabled") ;
212	$self->debug_msg("'fetchmail_enable_disable' : fetchmail disabled.") ;
213	} else {
214	@@ -850,10 +853,12 @@
215	=head2 fetchmail_routingSMTP
216
217	This method change the 'SMTP routing' mode of Fetchmail
218	+to be removed, not used anymore on SME 10
219
220	=cut
221
222	sub fetchmail_routingSMTP {
223	+ return undef ;
224	my $self = shift ;
225	$self->debug_msg("Start of sub 'fetchmail_routingSMTP'.") ;
226	my $current = $self->{cgi}->param('CurrentSMTP') ;
227	@@ -880,10 +885,12 @@
228	=head2 fetchmail_SMTPProxy
229
230	This method change the state of the SME SMTP Proxy
231	+to be removed, not used anymore on SME 10
232
233	=cut
234
235	sub fetchmail_SMTPProxy {
236	+ return undef ;
237	my $self = shift ;
238	$self->debug_msg("Start of sub 'fetchmail_SMTPProxy'.") ;
239	my $current = $self->{cgi}->param('CurrentSMTPProxy') ;