Gecko [ contributie.vriendennsm.nl ]

Linux mail.vriendennsm.nl 6.1.0-51-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.177-1 (2026-07-16) x86_64
Apache/2.4.68 (Debian)
Server IP : 217.154.75.17 & Your IP : 216.73.216.195
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
disable-proxy	3.54 KB	-rwxr-xr-x	2026-07-17 21:17
disable-twofactor	2.59 KB	-rwxr-xr-x	2026-07-17 21:17
enable-proxy	4.12 KB	-rwxr-xr-x	2026-07-17 21:17
language-manager	93.03 KB	-rwxr-xr-x	2026-07-17 21:17
list-config	5.14 KB	-rwxr-xr-x	2026-07-17 21:17
passwd	7.43 KB	-rwxr-xr-x	2026-07-17 21:17
patch	5.11 KB	-rwxr-xr-x	2026-07-17 21:17
server	21.42 KB	-rwxr-xr-x	2026-07-17 21:17
set-config	4.38 KB	-rwxr-xr-x	2026-07-17 21:17
update-devel	1.64 KB	-rwxr-xr-x	2026-07-17 21:17
webmin	13.29 KB	-rwxr-xr-x	2026-07-17 21:17

Rename

#!/usr/bin/env perl
# update-devel - Update Webmin/Usermin and/or Authentic Theme from Git, with latest unstable, development version.

use strict;
use warnings;

use 5.010;

use Getopt::Long qw(:config permute pass_through);
use Pod::Usage;
use Term::ANSIColor qw(:constants);
use File::Basename;
use Cwd qw(cwd);

my %opt;
GetOptions('help|h'      => \$opt{'help'},
           'product|p=s' => \$opt{'product'},
           'theme|t:s'   => \$opt{'theme'});
pod2usage(0) if ($opt{'help'} || !$opt{'product'});

# Get current path
my $path = cwd;

# Check Webmin lib
my $lib = "web-lib-funcs.pl";
if (!-r "$path/$lib") {
    $path = dirname(dirname($0));
    if (!-r "$path/$lib") {
        $path = $path = Cwd::realpath('..');
    }
}

# Run actual update or throw an error
my $p = $opt{'product'};

if ($p =~ /^webmin$|^usermin$/i) {
    if ($p =~ /^usermin$/i) {
        $path =~ s/webmin/$p/;
    }
    my $cmd = "cd $path && ./update-from-repo.sh -force";
    if (defined($opt{'theme'})) {
        my $tver = $opt{'theme'} ? " -release:$opt{'theme'}" : "";
        $cmd = "cd $path/authentic-theme && ./theme-update.sh$tver -force";
    } 
    system($cmd);
} else {
    say RED, "Unknow product name: $p", RESET;
    exit 0;
}

=pod

=head1 NAME

update-devel

=head1 DESCRIPTION

Update Webmin/Usermin and/or Authentic Theme from Git, with latest unstable, development version.

=head1 SYNOPSIS

update-devel [options] --product <webmin|usermin> [--theme]

=head1 OPTIONS

=over

=item --product, -p

Specify product name to update, like "webmin" or "usermin".

=item --theme, -t

If set, only Authentic Theme will be updated for specified product

=item --help, -h

=back