version 1.435.2.1, 2010/01/06 04:19:08
|
version 1.436, 2010/01/31 04:31:00
|
Line 2091 sub update_resource_handler {
|
Line 2091 sub update_resource_handler {
|
if (-e $fname) { |
if (-e $fname) { |
# Delete preview file, if exists |
# Delete preview file, if exists |
unlink("$fname.tmp"); |
unlink("$fname.tmp"); |
# Delete GCI Test Assembly preview file, if exists |
|
unlink("$fname.tn"); |
|
# Get usage stats |
# Get usage stats |
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, |
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, |
$atime,$mtime,$ctime,$blksize,$blocks)=stat($fname); |
$atime,$mtime,$ctime,$blksize,$blocks)=stat($fname); |
Line 6555 sub rewrite_password_file {
|
Line 6553 sub rewrite_password_file {
|
|
|
# Returns the authorization type or nouser if there is no such user. |
# Returns the authorization type or nouser if there is no such user. |
# |
# |
sub get_auth_type |
sub get_auth_type { |
{ |
|
|
|
my ($domain, $user) = @_; |
my ($domain, $user) = @_; |
|
|
Debug("get_auth_type( $domain, $user ) \n"); |
Debug("get_auth_type( $domain, $user ) \n"); |