uawdijnntqw1x1x1
IP : 52.14.176.111
Hostname : host45.registrar-servers.com
Kernel : Linux host45.registrar-servers.com 4.18.0-513.18.1.lve.2.el8.x86_64 #1 SMP Sat Mar 30 15:36:11 UTC 2024 x86_64
Disable Function : None :)
OS : Linux
PATH:
/
home
/
jackpotjunglegam
/
public_html
/
core
/
vendor
/
.
/
authorizenet
/
authorizenet
/
scripts
/
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;
/home/jackpotjunglegam/public_html/core/vendor/./authorizenet/authorizenet/scripts/appendSetCode.pl