Cjg at 10:26, 1 June 2018

2018-06-01T10:26:50Z

Cjg: Created page with "test"

2018-06-01T10:25:42Z

Created page with "test"

New page

test

← Older revision		Revision as of 10:26, 1 June 2018
Line 1:		Line 1:
−	~~test~~	+	Storing the last login time of a user can be useful to identify which users are active and which are not to help ensure data is not being stored longer than is necessary.
		+
		+	First a new user field for storing the time is required in user_fields.pl
		+
		+	<source lang="perl">
		+	##user_fields.pl
		+
		+	push @{$c->{fields}->{user}},
		+	{
		+	'name' => 'last_login',
		+	'type' => 'timestamp',
		+	},
		+	};
		+	</source>
		+
		+	And then add the following code to $c->{check_user_password} in user_login.pl to store the time at which a user successfully logs in.
		+
		+	<source lang="perl">
		+	##user_login.pl
		+
		+	#get user from username
		+	my $user = EPrints::DataObj::User::user_with_username( $repository, $username );
		+	return 0 unless $user;
		+
		+	#get time and compile a string
		+	my( @local ) = localtime( time );
		+	my ( $sec, $min, $hour, $day, $mon, $year ) = ( $local[0], $local[1], $local[2], $local[3], $local[4]+1, $local[5]+1900 );
		+	my $loginTime = "$year-$mon-$day $hour:$min:$sec";
		+
		+	#store the value
		+	$user->set_value( "last_login", $loginTime );
		+	$user->commit();
		+
		+	#return user
		+	return 1;
		+
		+	</source>
		+
		+	JLRS: An alternative approach (please discuss which is better) is to set the trigger on the loginticket dataset (different field spec from above - bigint):
		+	<source lang="perl">
		+	push @{$c->{fields}->{user}},
		+	{
		+	name=>"last_login",
		+	type=>"bigint", #same as 'expires' field in EPrints::DataObj::LoginTicket
		+	required=>0,
		+	volatile=>1
		+	}
		+	;
		+	$c->add_dataset_trigger( 'loginticket', EPrints::Const::EP_TRIGGER_CREATED, sub
		+	{
		+	my( %args ) = @_;
		+	my( $repo, $loginticket ) = @args{qw( repository dataobj )};
		+
		+	# trigger is global - check that current repository 'user' dataset has last_login field to be updated
		+	return unless $repo->get_dataset( "user" )->has_field( "last_login" );
		+
		+	#update volatile field in user record
		+	my $user = EPrints::DataObj::User->new( $repo, $loginticket->get_value( "userid" ) );
		+	if( defined $user ){
		+	$user->set_value( "last_login", $loginticket->get_value( "time" ) );
		+	$user->commit();
		+	}
		+	}, priority => 100 );
		+	</source>

GDPR/Last Login Time - Revision history

Cjg at 10:26, 1 June 2018

Cjg: Created page with "test"