server/ext/map-per-player.ext

#! 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

Revision:	1.3
Committed:	Sun Jan 14 01:09:46 2007 UTC (19 years, 9 months ago) by root
Branch:	MAIN
Changes since 1.2:	+3 -2 lines
Log Message:	re-bless in case extensions have been reloaded
#	User	Rev	Content
1	root	1.1	#! perl # MANDATORY
2
3	root	1.2	cf::map->register (qr{^~([^/]+)(/.*)});
4	root	1.1
5			sub init {
6			my ($self) = @_;
7
8	root	1.3	$self->{user} = $1;
9			$self->{orig_path} = $2;
10			$self->{deny_reset} = 1; #d# for now
11	root	1.1	}
12
13	root	1.2	sub load_path {
14	root	1.1	my ($self) = @_;
15
16	root	1.2	sprintf "%s/%s/%s", cf::datadir, cf::mapdir, $self->{orig_path}
17	root	1.1	}
18
19			sub save_path {
20			my ($self) = @_;
21
22	root	1.2	(my $path = $_[0]{orig_path}) =~ s/\//$PATH_SEP/g;
23			sprintf "%s/%s/%s/%s", cf::localdir, cf::playerdir, $self->{user}, $path
24	root	1.1	}
25
26			sub uniq_path {
27			undef
28			}
29
30	root	1.2	sub load_header {
31			my ($self) = @_;
32
33			$self->SUPER::load_header
34			or return;
35
36			# forcefully disable per_player flag
37			$self->per_player (0);
38
39			1
40			}
41
42	root	1.1	1
43