version 1.1, 2003/06/12 21:00:19
|
version 1.2, 2011/07/04 09:24:50
|
Line 1
|
Line 1
|
|
# |
|
# as this is a standalong file..that may ot be able to access the LONCAPA |
|
# module, I'm leaving the temp directory knoweldge uncentralized |
|
# - R. Fox 7/1/2011 |
|
# |
|
|
use strict; |
use strict; |
my $result=`ls -l /proc/*/fd/* | grep /home/httpd/perl/tmp/`; |
|
|
my $loncapa_tempdir = '/home/httpd/perl/tmp'; # configure the temp dir here. |
|
|
|
my $result=`ls -l /proc/*/fd/* | grep $loncapa_tempdir`; |
my @result=split("\n",$result); |
my @result=split("\n",$result); |
my (@pids,@files); |
my (@pids,@files); |
foreach my $line (@result) { |
foreach my $line (@result) { |