One Hat Cyber Team

Your IP: 216.73.216.93
Server IP: 65.108.141.171
Server: Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software: Apache
PHP Version: 7.4.33
Buat File | Buat Folder

Dir : ~/usr/share/perl5/Virtualmin/Config/Plugin/

Edit File: Mailman.pm

package Virtualmin::Config::Plugin::Mailman;
use strict;
use warnings;
no warnings qw(once);
use parent 'Virtualmin::Config::Plugin';

our $config_directory;
our (%gconfig, %miniserv);
our $trust_unknown_referers = 1;

sub new {
  my ($class, %args) = @_;

# inherit from Plugin
  my $self = $class->SUPER::new(name => 'Mailman', %args);

return $self;
}

# actions method performs whatever configuration is needed for this
# plugin. TODO Needs to make a backup so changes can be reverted.
sub actions {
  my $self = shift;

use Cwd;
  my $cwd  = getcwd();
  my $root = $self->root();
  chdir($root);
  $0 = "$root/virtual-server/config-system.pl";
  push(@INC, $root);
  eval 'use WebminCore';    ## no critic
  init_config();

if (foreign_check("mailman")) {
    $self->spin();
    eval {
      my $err;              # We should handle errors better here.
      foreign_require("virtualmin-mailman", "virtualmin-mailman-lib.pl");
      my @lists = virtualmin_mailman::list_lists();
      my ($mlist) = grep { $_->{'list'} eq 'mailman' } @lists;
      if (!$mlist) {

# Need to create
        virtualmin_mailman::create_list(
          "mailman", undef, "Default mailing list",
          undef,
          "root\@" . get_system_hostname(),
          time() . $$
        );
      }

$self->done(0);
    };
    if ($@) {
      $self->done(1);
    }
  }
}

1;