whoami7 - Manager
:
/
proc
/
self
/
root
/
usr
/
local
/
rvm
/
src
/
openssl-1.0.1i
/
util
/
Upload File:
files >> //proc/self/root/usr/local/rvm/src/openssl-1.0.1i/util/err-ins.pl
#!/usr/local/bin/perl # # tack error codes onto the end of a file # open(ERR,$ARGV[0]) || die "unable to open error file '$ARGV[0]':$!\n"; @err=<ERR>; close(ERR); open(IN,$ARGV[1]) || die "unable to open header file '$ARGV[1]':$!\n"; @out=""; while (<IN>) { push(@out,$_); last if /BEGIN ERROR CODES/; } close(IN); open(OUT,">$ARGV[1]") || die "unable to open header file '$ARGV[1]':$1\n"; print OUT @out; print OUT @err; print OUT <<"EOF"; #ifdef __cplusplus } #endif #endif EOF close(OUT);
Copyright ©2021 || Defacer Indonesia