⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.133
Server IP:
185.119.109.197
Server:
Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
8.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
webmin
/
virtual-server
/
View File Name :
virtualmin-licence.pl
# Defines the function for validating the Virtualmin licence, by making an # HTTP request to the licence CGI. $virtualmin_licence_host = "software.virtualmin.com"; $virtualmin_licence_port = 443; $virtualmin_licence_prog = "/cgi-bin/vlicence.cgi"; $virtualmin_licence_ssl = 1; $virtualmin_renewal_url = $config{'renewal_url'} || $virtualmin_shop_link; # licence_scheduled(hostid, [serial, key], [vps-type]) # Returns a status code (0=OK, 1=Invalid, 2=Down, 3=Expired), the expiry date, # an error message, the number of domains max, the number of servers max, # the number of servers used, and the auto-renewal flag sub licence_scheduled { local ($hostid, $serial, $key, $vps) = @_; local ($out, $error, $regerr); local @doms = grep { !$_->{'alias'} && !$_->{'defaultdomain'} } &list_domains(); &read_env_file($virtualmin_license_file, \%serial); $key ||= $serial{'LicenseKey'}; $serial ||= $serial{'SerialNumber'}; &http_download($virtualmin_licence_host, $virtualmin_licence_port, "$virtualmin_licence_prog?id=$hostid&". "serial=$key&doms=".scalar(@doms)."&vps=$vps", \$out, \$error, undef, $virtualmin_licence_ssl, undef, undef, 10, 0, 1); return (2, undef, "$text{'licence_efailed'} : @{[lcfirst($error)]}") if ($error); return $out =~ /^EXP\s+(?<exp>\S+)\s+(\S+)\s+(\S+)\s+(\S+)(?:\s+(\d+)(?:\s+([\w])(?:\s+(\d+))?)?)?/ ? (3, "$+{exp}", &text("licence_eexp", "$+{exp}"), $2, $3, $4, $5, $6, $7) : $out =~ /^ERR\s+(?<err>.*)/ && ($regerr = $+{err}) && $regerr !~ /invalid\s+host\s+or\s+serial\s+number/i ? (2, undef, "$text{'licence_echk'} : $regerr", undef) : $out =~ /^OK\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)(?:\s+(\d+)(?:\s+([\w])(?:\s+(\d+))?)?)?/ ? (0, $1, undef, $2, $3, $4, $5, $6, $7) : (1, undef, (!$serial || uc($serial) eq 'GPL') ? $text{"licence_evalidnone"} : &text("licence_evalid", "<tt data-evalid>$serial</tt>")); } # Change license with a new serial and key sub change_licence { my ($serial, $key, $nocheck, $force_update) = @_; &require_licence($force_update); my ($status, $exp, $err, $doms, $server, $hostid); # Display a warning to GPL user trying to apply a license instead of # properly upgrading. Can be bypassed by using --force-update flag if (!$force_update) { my $gpl_repos_warning = $text{'licence_gpl_repos_warning'}; my $yumrepo = &read_file_lines($virtualmin_yum_repo, 1); my $aptrepo = &read_file_lines($virtualmin_apt_repo, 1); if (($yumrepo && "@{$yumrepo}" =~ /\/gpl\//) || ($aptrepo && "@{$aptrepo}" =~ /\/gpl\//)) { return (1, $gpl_repos_warning); } } # Validate the new license if (!$nocheck) { &$first_print(&text("licence_validating", "<tt>$key</tt>")); $hostid = &get_licence_hostid(); ($status, $exp, $err, $doms, $server) = &licence_scheduled($hostid, $serial, $key, &get_vps_type()); if ($status) { $err = lcfirst($err); if ($status == 2) { &$second_print("$text{'licence_evalidating'} : $err"); } else { &$second_print("$text{'licence_ecanvalidating'} : $err"); } return (1, undef); } else { my $dcount = ($doms <= 0 ? 0 : $doms); if ($dcount == 0) { &$second_print(&text("licence_valid_unlim", $exp)); } else { &$second_print(&text("licence_valid", $dcount, $exp)); } } } # Update RHEL repo if (-r $virtualmin_yum_repo) { my $found = 0; my $lref = &read_file_lines($virtualmin_yum_repo); &$first_print($text{'licence_updating_repo'}); &lock_file($virtualmin_yum_repo); foreach my $l (@$lref) { if ( # Pro license $l =~ /^baseurl=(https?):\/\/([^:]+):([^\@]+)\@($upgrade_virtualmin_host.*)$/ || # GPL license ($force_update && $l =~ /^baseurl=(https?):(\/)(\/)($upgrade_virtualmin_host.*)$/) ) { my $host = $4; if ($force_update && $l =~ /\/gpl\//) { $host =~ s/gpl\//pro\//; } $l = "baseurl=https://".$serial.":".$key."\@".$host; $found++; } } &flush_file_lines($virtualmin_yum_repo); &unlock_file($virtualmin_yum_repo); if ($found) { &execute_command("yum clean all"); } &$second_print($found ? $text{'setup_done'} : &text("licence_no_lines", "<tt>$upgrade_virtualmin_host</tt>")); } # Update Debian repo if (-r $virtualmin_apt_repo) { my $found = 0; my $lref = &read_file_lines($virtualmin_apt_repo); &$first_print($text{'licence_updating_repo'}); &lock_file($virtualmin_apt_repo); foreach my $l (@$lref) { if ( # Pro license old format $l =~ /^deb(.*?)(https?):\/\/([^:]+):([^\@]+)\@($upgrade_virtualmin_host.*)$/ || # Pro license new format and GPL license (-d $virtualmin_apt_auth_dir && $l =~ /^deb(.*?)(https?):(\/)(\/).*($upgrade_virtualmin_host.*)$/) || # GPL license on old systems ($force_update && $l =~ /^deb(.*?)(https?):(\/)(\/).*($upgrade_virtualmin_host.*)$/) ) { my $gpgkey = $1; my $host = $5; if ($force_update && $l =~ /\/gpl\//) { $host =~ s/gpl\//pro\//; } if (-d $virtualmin_apt_auth_dir) { $l = "deb${gpgkey}https://".$host; } else { $l = "deb${gpgkey}https://".$serial.":".$key."\@".$host; } $found++; } } &flush_file_lines($virtualmin_apt_repo); &unlock_file($virtualmin_apt_repo); if (-d $virtualmin_apt_auth_dir) { &write_file_contents( "$virtualmin_apt_auth_dir/virtualmin.conf", "machine $upgrade_virtualmin_host login $serial password $key\n"); } if ($found) { &execute_command("apt-get update"); } &$second_print($found ? $text{'setup_done'} : &text("licence_no_lines", "<tt>$upgrade_virtualmin_host</tt>")); } # Update Webmin updates file &foreign_require("webmin"); if ($webmin::config{'upsource'} =~ /\Q$upgrade_virtualmin_host\E/) { &$first_print("Updating Webmin module updates URL .."); &lock_file($webmin::module_config_file); @upsource = split(/\t/, $webmin::config{'upsource'}); foreach my $u (@upsource) { if ($u =~ /^(http|https|ftp):\/\/([^:]+):([^\@]+)\@($upgrade_virtualmin_host.*)$/) { $u = $1."://".$serial.":".$key."\@".$4; } } $webmin::config{'upsource'} = join("\t", @upsource); &webmin::save_module_config(); &unlock_file($webmin::module_config_file); &$second_print($text{'setup_done'}); } # Update Virtualmin licence file &$first_print($text{'licence_updfile'}); &lock_file($virtualmin_license_file); %lfile = ( 'SerialNumber' => $serial, 'LicenseKey' => $key ); &write_env_file($virtualmin_license_file, \%lfile); &unlock_file($virtualmin_license_file); if (defined($status) && $status == 0) { # Update the status file if (!$nocheck) { &read_file($licence_status, \%licence); # Update the licence status based on the new licence as # Virtualmin server can block on too many requests $licence{'status'} = $status; $licence{'expiry'} = $exp; $licence{'doms'} = $doms; $licence{'servers'} = $server; &update_licence_from_site(\%licence); &write_file($licence_status, \%licence); } } &$second_print($text{'setup_done'}); } 1;