Apache-SWIT-Security

 view release on metacpan or  search on metacpan

lib/Apache/SWIT/Security/UI/UserForm.pm  view on Meta::CPAN

use strict;
use warnings FATAL => 'all';

package Apache::SWIT::Security::UI::UserForm;
use Apache::SWIT::HTPage;
use base qw(Apache::SWIT::HTPage::Safe);
use Apache::SWIT::Security qw(Hash);

sub swit_startup {
	my $rc = shift()->ht_make_root_class('HTML::Tested::ClassDBI');
	$rc->ht_add_widget(::HTV."::EditBox", 'username', cdbi_bind => 'name');
	$rc->ht_add_widget(::HTV."::PasswordBox", 'password', cdbi_bind => '');
	$rc->ht_add_widget(::HTV."::PasswordBox", 'password2'
		, check_mismatch => 'password'
		, constraints => [ [ 'defined' ] ]);
	$rc->bind_to_class_dbi(
		$ENV{AS_SECURITY_USER_CLASS}, { PrimaryKey => [] });
}

sub ht_swit_render {
	my ($class, $r, $root) = @_;
	return $root;
}

sub ht_swit_update {
	my ($class, $r, $root) = @_;

lib/Apache/SWIT/Security/UI/UserList.pm  view on Meta::CPAN

use strict;
use warnings FATAL => 'all';

package Apache::SWIT::Security::UI::UserList::Root::Item;
use base 'HTML::Tested::ClassDBI';

sub make_widgets {
	my $class = shift;
	$class->ht_add_widget(::HTV . "::Marked", 'name', cdbi_bind => ''
			, cdbi_readonly => 1);
	$class->ht_add_widget(::HTV."::Hidden"
			, ht_id => cdbi_bind => 'Primary');
	$class->ht_add_widget(::HTV."::CheckBox"
			, check => default_value => [ 1 ]);
}

package Apache::SWIT::Security::UI::UserList::Root;
use base 'HTML::Tested';
__PACKAGE__->ht_add_widget(::HT."::List", 'user_list', __PACKAGE__ . '::Item');
__PACKAGE__->ht_add_widget(::HTV."::DropDown", 'role_sel');

package Apache::SWIT::Security::UI::UserList;

lib/Apache/SWIT/Security/UI/UserList.pm  view on Meta::CPAN

			grep { $_->check } @{ $root->user_list };
	my $rs = $root->role_sel;
	my ($op, @args) = $rs ? ('add_role_id', ($rs)) : ('delete', ());
	$_->$op(@args) for @objs;
	return $rs ? "../userrolelist/r" : "r";
}

sub swit_startup {
	my $class = shift;
	$class->ht_root_class->user_list_containee->make_widgets;
	$class->ht_root_class->user_list_containee->bind_to_class_dbi(
		$ENV{AS_SECURITY_USER_CLASS});
}

1;

lib/Apache/SWIT/Security/UI/UserProfile.pm  view on Meta::CPAN

use warnings FATAL => 'all';

package Apache::SWIT::Security::UI::UserProfile;
use Apache::SWIT::HTPage;
use base qw(Apache::SWIT::HTPage::Safe);
use Apache::SWIT::Security qw(Hash);
use Apache::SWIT::Security qw(Sealed_Params);

sub swit_startup {
	my $rc = shift()->ht_make_root_class('HTML::Tested::ClassDBI');
	$rc->ht_add_widget(::HTV."::EditBox", 'name', cdbi_bind => '');
	$rc->ht_add_widget(::HTV."::Hidden", 'user_id', cdbi_bind => 'Primary');
	$rc->ht_add_widget(::HTV."::PasswordBox", $_
			, constraints => [ [ "defined"] ])
		for qw(new_password_confirm old_password);
	$rc->ht_add_widget(::HTV."::PasswordBox"
		, new_password => check_mismatch => 'new_password_confirm'
		, constraints => [ [ "defined"] ]);
	$rc->ht_add_widget(::HTV."::Form", form => default_value => 'u');
	$rc->bind_to_class_dbi($ENV{AS_SECURITY_USER_CLASS});
}

sub ht_swit_render {
	my ($class, $r, $root) = @_;
	$root->cdbi_load;
	return $root;
}

sub ht_swit_update_die {
	my ($class, $err, $r, $tested) = @_;

lib/Apache/SWIT/Security/UI/UserRoleList.pm  view on Meta::CPAN

use strict;
use warnings FATAL => 'all';

package Apache::SWIT::Security::UI::UserRoleList::Root::Item;
use base 'HTML::Tested::ClassDBI';

sub make_widgets {
	my $class = shift;
	$class->ht_add_widget(::HTV."::Marked", 'name', cdbi_bind => ''
			, cdbi_readonly => 1);
	$class->ht_add_widget(::HTV."::Marked", 'role_name');
	$class->ht_add_widget(::HTV."::Hidden", 'role_id', cdbi_bind => ''
			, is_sealed => 1);
	$class->ht_add_widget(::HTV."::Hidden", 'ht_id'
			, cdbi_bind => 'Primary');
	$class->ht_add_widget(::HTV."::CheckBox"
			, 'check', default_value => [ 1 ]);
}

package Apache::SWIT::Security::UI::UserRoleList::Root;
use base 'HTML::Tested';
__PACKAGE__->ht_add_widget(::HT."::List", 'user_list', __PACKAGE__ . '::Item');

package Apache::SWIT::Security::UI::UserRoleList;
use base qw(Apache::SWIT::HTPage);

lib/Apache/SWIT/Security/UI/UserRoleList.pm  view on Meta::CPAN

	for my $c (grep { $_->check } @{ $root->user_list }) {
		my $o = $c->cdbi_construct;
		$o->delete_role_id($c->role_id);
	}
	return "r";
}

sub swit_startup {
	my $class = shift;
	$class->ht_root_class->user_list_containee->make_widgets;
	$class->ht_root_class->user_list_containee->bind_to_class_dbi(
			$ENV{AS_SECURITY_USER_CLASS});
}

1;