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/webmin/virtualmin-registrar/

Edit File: renew.cgi

#!/usr/bin/perl
# Actually perform domain renewal
use strict;
no strict 'refs';
use warnings;
our (%text, %in, $module_name);

require './virtualmin-registrar-lib.pl';
&ReadParse();
&error_setup($text{'renew_err'});

# Get the Virtualmin domain
&can_domain($in{'dom'}) && &virtual_server::can_use_feature($module_name) ||
	&error($text{'renew_ecannot'});
my $d = &virtual_server::get_domain_by("dom", $in{'dom'});
$d || &error(&text('contact_edom', $in{'dom'}));
my ($account) = grep { $_->{'id'} eq $d->{'registrar_account'} }
		  &list_registrar_accounts();
$account || &error(&text('contact_eaccount', $in{'dom'}));

# Validate inputs
$in{'years'} =~ /^\d+$/ && $in{'years'} > 0 && $in{'years'} <= 10 ||
	&error($text{'renew_eyears'});

# Do it
&ui_print_unbuffered_header(&virtual_server::domain_in($d),
			    $text{'renew_title'}, "", "renew");

print &text('renew_doing', "<tt>$d->{'dom'}</tt>", "$account->{'desc'}",
	 $in{'years'})," \n";
my $rfunc = "type_".$account->{'registrar'}."_renew_domain";
my ($ok, $msg) = &$rfunc($account, $d, $in{'years'});
if ($ok) {
	print &text('renew_done', $msg),"\n";
	}
else {
	print &text('renew_failed', $msg),"\n";
	}

&ui_print_footer();