hjp
/
simba
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

Added symlinks to CA.

This commit is contained in:
hjp 2006-11-28 16:27:59 +00:00
parent d00c40ca13
commit 7b075f1b40
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Simba/CA.pm
View File

@ -117,6 +117,11 @@ sub backup2disk {
$d =~ s,//+,/,g; $d =~ s,//+,/,g;
mkdir_p($d) or die "cannot mkdir $d: $!"; # XXX mkdir_p($d) or die "cannot mkdir $d: $!"; # XXX
$self->setmeta($f); $self->setmeta($f);
} elsif ($f->{t} eq 'l') {
my $l = "$self->{this_backup}/$f->{name}";
symlink($f->{lt}, $l) or die "cannot symlink $l -> $f->{lt}: $!"; # XXX
# $self->setmeta($f); ignore for symlinks. would need to use
# lchown, lchmod, etc.
} else { } else {
# create local copy (or insert into DB only?) # create local copy (or insert into DB only?)
print STDERR "ignored $_\n"; print STDERR "ignored $_\n";
@ -141,6 +146,7 @@ sub parse {
$f->{g} = unquote($f->{g}); $f->{g} = unquote($f->{g});
$f->{acl} = unquote($f->{acl}); $f->{acl} = unquote($f->{acl});
$f->{m} = $1 if $f->{m} =~ /^(\d+)$/; $f->{m} = $1 if $f->{m} =~ /^(\d+)$/;
$f->{lt} = unqote($f->{lt}) if defined $f->{lt};
return $f; return $f;
} }