#! perl # MANDATORY

cf::map->register (qr{^~([^/]+)(/.*)});

sub init {
   my ($self) = @_;

   $self->{user}       = $1;
   $self->{orig_path}  = $2;
   $self->{deny_reset} = 1; #d# for now
}

sub load_path {
   my ($self) = @_;

   sprintf "%s/%s/%s", cf::datadir, cf::mapdir, $self->{orig_path}
}

sub save_path {
   my ($self) = @_;

   (my $path = $_[0]{orig_path}) =~ s/\//$PATH_SEP/g;
   sprintf "%s/%s/%s/%s", cf::localdir, cf::playerdir, $self->{user}, $path
}

sub uniq_path {
   undef
}

sub load_header {
   my ($self) = @_;

   $self->SUPER::load_header
      or return;

   # forcefully disable per_player flag
   $self->per_player (0);

   1
}

1