server/ext/map-style.ext

#! perl # mandatory

cf::map->register (qr{^/styles/});

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

   $self->{deny_save} = 1;
   $self->{deny_list} = 1;
   $self->{deny_reset} = 1;
   $self->{deny_activate} = 1;

   1
}

Revision:	1.3
Committed:	Tue May 4 21:45:42 2010 UTC (14 years ago) by root
Branch:	MAIN
CVS Tags:	rel-3_1, rel-3_0, HEAD
Changes since 1.2:	+0 -2 lines
Log Message:	* empty log message *
#	Content
1	#! perl # mandatory
2
3	cf::map->register (qr{^/styles/});
4
5	sub init {
6	my ($self) = @_;
7
8	$self->{deny_save} = 1;
9	$self->{deny_list} = 1;
10	$self->{deny_reset} = 1;
11	$self->{deny_activate} = 1;
12
13	1
14	}
15