version 1.31, 2016/08/09 15:22:33
|
version 1.32, 2017/02/25 20:25:19
|
Line 45 http://www.lon-capa.org/
|
Line 45 http://www.lon-capa.org/
|
mkdir($filepath,0755); |
mkdir($filepath,0755); |
} |
} |
} |
} |
|
} else { |
|
chmod(0755,$picinspath); |
} |
} |
if (-d $picinspath) { |
if (-d $picinspath) { |
my $srcurl = 'http://install.loncapa.org/ctan/tex-archive/macros/latex209/contrib/picins/picins.sty'; |
my $srcurl = 'http://install.loncapa.org/ctan/tex-archive/macros/latex209/contrib/picins/picins.sty'; |
Line 55 http://www.lon-capa.org/
|
Line 57 http://www.lon-capa.org/
|
system('/usr/bin/texconfig rehash 1>/dev/null 2>/dev/null'); |
system('/usr/bin/texconfig rehash 1>/dev/null 2>/dev/null'); |
die("Can't run /usr/bin/texconfig rehash") if $?; |
die("Can't run /usr/bin/texconfig rehash") if $?; |
print "$picinspath/$file created and /usr/bin/texconfig rehash ran successfully.\n"; |
print "$picinspath/$file created and /usr/bin/texconfig rehash ran successfully.\n"; |
|
chmod(0644,"$picinspath/$file"); |
} else { |
} else { |
die("Can't find $picinspath/$file"); |
die("Can't find $picinspath/$file"); |
} |
} |
Line 62 http://www.lon-capa.org/
|
Line 65 http://www.lon-capa.org/
|
die("Can't find $picinspath") if $?; |
die("Can't find $picinspath") if $?; |
} |
} |
} else { |
} else { |
|
chmod(0755,$picinspath); |
|
chmod(0644,"$picinspath/$file"); |
print "No action required - $picinspath/$file already exists.\n"; |
print "No action required - $picinspath/$file already exists.\n"; |
} |
} |
</perlscript> |
</perlscript> |