|
Server : Apache/2.4.18 (Ubuntu) System : Linux canvaswebdesign 3.13.0-71-generic #114-Ubuntu SMP Tue Dec 1 02:34:22 UTC 2015 x86_64 User : oppastar ( 1041) PHP Version : 7.0.33-0ubuntu0.16.04.15 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, Directory : /var/www/vajra.id/public_html/application/third_party/dompdf/lib/ttf2ufm/src/scripts/ |
Upload File : |
#!/usr/bin/perl
#
# Script to create a directory for installation
#
# (c) 2000 by The TTF2PT1 Project
# See COPYRIGHT for full license
#
if( $#ARGV!=0 && $#ARGV !=3) {
die "Use: $0 dir-name [owner group mode]\n"
}
if( $#ARGV==3 ) {
$owner = $ARGV[1];
$group = $ARGV[2];
eval "\$mode = 0$ARGV[3];";
} else {
$owner = "root";
$group = "bin";
$mode = 0755;
}
@sl = split(/\//, $ARGV[0]);
$prefix = shift(@sl);
if($prefix eq "") {
$prefix = "/" . shift(@sl);
}
while(1) {
if( ! -d "$prefix" ) {
die "Unable to create directory $prefix:\n$!\n"
unless mkdir($prefix, $mode);
die "Unable to change owner of $prefix to $owner\n"
if system("chown $owner $prefix");
die "Unable to change group of $prefix to $group\n"
if system("chgrp $group $prefix");
}
if($#sl < 0) {
last;
}
$prefix .= "/" . shift(@sl);
}
exit(0);