Lines Matching refs:path
85 # return the path to the credential directory. If the user is not
102 # sign(size, cred, path)
107 my ($size, $cred, $path) = @_;
113 # Check path for use of .. or absolute pathname
114 my @comp = split(m:/:, $path);
117 abnormal("WARNING Invalid path $path");
131 system("/usr/bin/unzip -qo ../in.zip $path");
134 $msg = `cd $cred_dir; ./sign $Tmpdir/reloc/$path`;
145 my $hash = `digest -a md5 $Tmpdir/reloc/$path`;
146 sendfile("$Tmpdir/out.zip", $path) || return;
150 audit("SIGN $path $cred $hash");
154 # sendfile(file, path)
161 my ($file, $path) = @_;
171 print "OK SIGN $size $path\n";