initial commit of file from CVS for smeserver-sogo on Sat Sep 7 16:42:51 AEST 2024

2024-09-07 16:42:51 +10:00
parent 6d95628cf6
commit ac311161a2
122 changed files with 3844 additions and 2 deletions
--- a/root/usr/share/perl5/vendor_perl/Apache/FilterChangeLength.pm
+++ b/root/usr/share/perl5/vendor_perl/Apache/FilterChangeLength.pm
@@ -0,0 +1,52 @@
+package Apache::FilterChangeLength;
+
+use strict;
+use warnings FATAL => 'all';
+
+use Apache2::RequestRec ();
+
+use APR::Table ();
+use APR::Bucket ();
+use APR::Brigade ();
+
+use base qw(Apache2::Filter);
+
+use Apache2::Const -compile => qw(OK);
+use APR::Const     -compile => ':common';
+
+sub handler {
+    my ($filter, $bb) = @_;
+    my $ctx = $filter->ctx;
+    my $data = exists $ctx->{data} ? $ctx->{data} : '';
+    $ctx->{invoked}++;
+    my ($bdata, $seen_eos) = flatten_bb($bb);
+    $data .= $bdata if $bdata;
+
+    if ($seen_eos) {
+        my $len = length $data;
+        $filter->r->headers_out->set('Content-Length', $len);
+        $filter->print($data) if $data;
+    }
+    else {
+        # store context for all but the last invocation
+        $ctx->{data} = $data;
+        $filter->ctx($ctx);
+    }
+
+    return Apache2::Const::OK;
+}
+
+sub flatten_bb {
+    my ($bb) = shift;
+    my $seen_eos = 0;
+
+    my @data;
+    for (my $b = $bb->first; $b; $b = $bb->next($b)) {
+        $seen_eos++, last if $b->is_eos;
+        $b->read(my $bdata);
+        push @data, $bdata;
+    }
+    return (join('', @data), $seen_eos);
+}
+
+1;
--- a/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/sogo.pm
+++ b/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/sogo.pm
@@ -0,0 +1,84 @@
+#!/usr/bin/perl -w 
+
+#----------------------------------------------------------------------
+# copyright (C) 2011 Firewall-Services
+#               2014 Stephane de Labrusse <stephdl@de-labrusse.fr>
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
+#----------------------------------------------------------------------
+package    esmith::FormMagick::Panel::sogo;
+
+use strict;
+
+use esmith::FormMagick;
+use esmith::AccountsDB;
+use esmith::ConfigDB;
+use esmith::cgi;
+use esmith::util;
+use Exporter;
+use Carp qw(verbose);
+
+our @ISA = qw(esmith::FormMagick Exporter);
+
+our @EXPORT = qw(
+    get_prop
+    apply
+);
+
+
+our $accountdb = esmith::AccountsDB->open();
+our $configdb = esmith::ConfigDB->open();
+
+sub new {
+    shift;
+    my $self = esmith::FormMagick->new();
+    $self->{calling_package} = (caller)[0];
+    bless $self;
+    return $self;
+}
+
+sub get_prop{
+    my ($fm, $prop, $default) = @_;
+    return $configdb->get_prop("sogod", $prop) || $default;
+}
+
+sub apply {
+    my ($self) = @_;
+    my $q = $self->{cgi};
+
+    $configdb->set_prop('sogod', 'status', $q->param("status"));
+    $configdb->set_prop('sogod', 'ACLsSendEMailNotifications', $q->param("aclSendMail"));
+    $configdb->set_prop('sogod', 'MailAuxiliaryUserAccountsEnabled', $q->param("auxAccounts"));
+    $configdb->set_prop('sogod', 'PublicAccess', $q->param("publicAccess"));
+    $configdb->set_prop('sogod', 'ActiveSync', $q->param("activeSync"));
+    $configdb->set_prop('sogod', 'EnableEMailAlarms', $q->param("enableEMailAlarms"));
+    
+    my $sogo_status = $configdb->get_prop('sogod','status');
+
+    if ($sogo_status eq 'disabled') {
+        unless ( system ('/etc/init.d/sogod stop >/dev/null 2>&1') == 0 ){
+            return $self->error('ERROR_OCCURED', 'First');
+        }
+    }
+
+    elsif ($sogo_status eq 'enabled') {
+        unless ( system ("/sbin/e-smith/signal-event", "sogo-modify") == 0 ){
+            return $self->error('ERROR_OCCURED', 'First');
+        }
+    }
+    return $self->success('SUCCESS','First');
+
+}
+
+1;