Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix to check MASTER access

  • Loading branch information...
commit cbc536cfd2089950525452803bcead2fbc18e23e 1 parent 57347f9
Barbie authored
3  Changes
View
@@ -1,5 +1,8 @@
Changes for the Labyrinth Core Plugins
+5.02 01/01/2011
+ - fix to check MASTER access.
+
5.01 01/01/2011
- moved MasterCheck from plugins to core
28 META.json
View
@@ -1,6 +1,6 @@
{
"name": "Labyrinth::Plugin::Core",
- "version": "5.01",
+ "version": "5.02",
"abstract": "Labyrinth Website Management Framework Core Plugins",
"author": [
"Barbie (BARBIE) <barbie@cpan.org>"
@@ -51,55 +51,55 @@
"provides": {
"Labyrinth::Plugin::Articles": {
"file": "lib/Labyrinth/Plugin/Articles.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::Articles::Sections": {
"file": "lib/Labyrinth/Plugin/Articles/Sections.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::Content": {
"file": "lib/Labyrinth/Plugin/Content.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::Core": {
"file": "lib/Labyrinth/Plugin/Core.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::Folders": {
"file": "lib/Labyrinth/Plugin/Folders.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::Groups": {
"file": "lib/Labyrinth/Plugin/Groups.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::Hits": {
"file": "lib/Labyrinth/Plugin/Hits.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::Images": {
"file": "lib/Labyrinth/Plugin/Images.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::Inbox": {
"file": "lib/Labyrinth/Plugin/Inbox.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::Menus": {
"file": "lib/Labyrinth/Plugin/Menus.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::News": {
"file": "lib/Labyrinth/Plugin/News.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::Users": {
"file": "lib/Labyrinth/Plugin/Users.pm",
- "version": "5.01"
+ "version": "5.02"
},
"Labyrinth::Plugin::Users::Info": {
"file": "lib/Labyrinth/Plugin/Users/Info.pm",
- "version": "5.01"
+ "version": "5.02"
}
},
"no_index": {
28 META.yml
View
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Labyrinth::Plugin::Core
-version: 5.01
+version: 5.02
abstract: Labyrinth Website Management Framework Core Plugins
author:
- Barbie <barbie@cpan.org>
@@ -31,43 +31,43 @@ build_requires:
provides:
Labyrinth::Plugin::Articles:
file: lib/Labyrinth/Plugin/Articles.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::Articles::Sections:
file: lib/Labyrinth/Plugin/Articles/Sections.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::Content:
file: lib/Labyrinth/Plugin/Content.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::Core:
file: lib/Labyrinth/Plugin/Core.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::Folders:
file: lib/Labyrinth/Plugin/Folders.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::Groups:
file: lib/Labyrinth/Plugin/Groups.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::Hits:
file: lib/Labyrinth/Plugin/Hits.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::Images:
file: lib/Labyrinth/Plugin/Images.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::Inbox:
file: lib/Labyrinth/Plugin/Inbox.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::Menus:
file: lib/Labyrinth/Plugin/Menus.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::News:
file: lib/Labyrinth/Plugin/News.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::Users:
file: lib/Labyrinth/Plugin/Users.pm
- version: 5.01
+ version: 5.02
Labyrinth::Plugin::Users::Info:
file: lib/Labyrinth/Plugin/Users/Info.pm
- version: 5.01
+ version: 5.02
no_index:
directory:
2  lib/Labyrinth/Plugin/Articles.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::Articles;
use warnings;
use strict;
-my $VERSION = '5.01';
+my $VERSION = '5.02';
=head1 NAME
14 lib/Labyrinth/Plugin/Articles/Sections.pm
View
@@ -4,7 +4,7 @@ use warnings;
use strict;
use vars qw($VERSION $ALLSQL $SECTIONID);
-$VERSION = '5.01';
+$VERSION = '5.02';
=head1 NAME
@@ -96,34 +96,34 @@ Standard actions to administer the section content.
=cut
-sub Access { Authorised(GOD) }
+sub Access { Authorised(MASTER) }
sub Admin {
- return unless AccessUser(GOD);
+ return unless AccessUser(MASTER);
$cgiparams{sectionid} = $SECTIONID;
shift->SUPER::Admin();
}
sub Add {
- return unless AccessUser(GOD);
+ return unless AccessUser(MASTER);
$cgiparams{sectionid} = $SECTIONID;
shift->SUPER::Add();
}
sub Edit {
- return unless AccessUser(GOD);
+ return unless AccessUser(MASTER);
$cgiparams{sectionid} = $SECTIONID;
shift->SUPER::Edit();
}
sub Save {
- return unless AccessUser(GOD);
+ return unless AccessUser(MASTER);
$cgiparams{sectionid} = $SECTIONID;
shift->SUPER::Save();
}
sub Delete {
- return unless AccessUser(GOD);
+ return unless AccessUser(MASTER);
$cgiparams{sectionid} = $SECTIONID;
shift->SUPER::Delete();
}
2  lib/Labyrinth/Plugin/Content.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::Content;
use warnings;
use strict;
-my $VERSION = '5.01';
+my $VERSION = '5.02';
=head1 NAME
2  lib/Labyrinth/Plugin/Core.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::Core;
use warnings;
use strict;
-our $VERSION = '5.01';
+our $VERSION = '5.02';
1;
2  lib/Labyrinth/Plugin/Folders.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::Folders;
use warnings;
use strict;
-my $VERSION = '5.01';
+my $VERSION = '5.02';
=head1 NAME
4 lib/Labyrinth/Plugin/Groups.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::Groups;
use warnings;
use strict;
-my $VERSION = '5.01';
+my $VERSION = '5.02';
=head1 NAME
@@ -128,7 +128,7 @@ sub Admin {
if($cgiparams{doaction}) {
Delete() if($cgiparams{doaction} eq 'Delete');
}
- my @where = ($tvars{useraccess} == GOD ? () : ('groupid!=9'));
+ my @where = ($tvars{useraccess} == MASTER ? () : ('groupid!=9'));
push @where, "groupname LIKE '%$cgiparams{'searchname'}%'" if($cgiparams{'searchname'});
my $where = @where ? 'WHERE '.join(' AND ',@where) : '';
my @rows = $dbi->GetQuery('hash','AllGroups',{where=>$where});
2  lib/Labyrinth/Plugin/Hits.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::Hits;
use warnings;
use strict;
-my $VERSION = '5.01';
+my $VERSION = '5.02';
=head1 NAME
2  lib/Labyrinth/Plugin/Images.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::Images;
use warnings;
use strict;
-my $VERSION = '5.01';
+my $VERSION = '5.02';
=head1 NAME
2  lib/Labyrinth/Plugin/Inbox.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::Inbox;
use warnings;
use strict;
-my $VERSION = '5.01';
+my $VERSION = '5.02';
=head1 NAME
2  lib/Labyrinth/Plugin/Menus.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::Menus;
use warnings;
use strict;
-my $VERSION = '5.01';
+my $VERSION = '5.02';
=head1 NAME
2  lib/Labyrinth/Plugin/News.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::News;
use warnings;
use strict;
-my $VERSION = '5.01';
+my $VERSION = '5.02';
=head1 NAME
4 lib/Labyrinth/Plugin/Users.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::Users;
use warnings;
use strict;
-my $VERSION = '5.01';
+my $VERSION = '5.02';
=head1 NAME
@@ -97,7 +97,7 @@ sub UserLists {
$search{where} = '';
$search{order} = 'realname,nickname';
$search{search} = 1;
- $search{access} = GOD + 1;
+ $search{access} = MASTER + 1;
if(Authorised(ADMIN)) {
$search{order} = 'u.realname' if($cgiparams{ordered});
2  lib/Labyrinth/Plugin/Users/Info.pm
View
@@ -3,7 +3,7 @@ package Labyrinth::Plugin::Users::Info;
use warnings;
use strict;
-my $VERSION = '5.01';
+my $VERSION = '5.02';
=head1 NAME
Please sign in to comment.
Something went wrong with that request. Please try again.