| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/usr/share/webmin/bin/ |
Upload File : |
#!/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