Add a method that generates a reset HMAC to User.pm

[gruntmaster-data.git] / lib / Gruntmaster / Data / Result / User.pm

use utf8;
package Gruntmaster::Data::Result::User;

# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE

=head1 NAME

Gruntmaster::Data::Result::User - List of users

=cut

use strict;
use warnings;

use base 'DBIx::Class::Core';

=head1 TABLE: C<users>

=cut

__PACKAGE__->table("users");

=head1 ACCESSORS

=head2 id

  data_type: 'text'
  is_nullable: 0

=head2 passphrase

  data_type: 'text'
  is_nullable: 1

RFC2307-encoded passphrase

=head2 admin

  data_type: 'boolean'
  default_value: false
  is_nullable: 0

=head2 name

  data_type: 'text'
  is_nullable: 1

Full name of user

=head2 email

  data_type: 'text'
  is_nullable: 1

=head2 phone

  data_type: 'text'
  is_nullable: 1

=head2 town

  data_type: 'text'
  is_nullable: 1

=head2 university

  data_type: 'text'
  is_nullable: 1

=head2 level

  data_type: 'text'
  is_nullable: 1

Highschool, Undergraduate, Master, Doctorate or Other

=head2 country

  data_type: 'text'
  is_nullable: 1

=head2 lastjob

  data_type: 'bigint'
  is_nullable: 1

Unix time when this user last submitted a job

=head2 since

  data_type: 'bigint'
  default_value: (date_part('epoch'::text, now()))::bigint
  is_nullable: 1

Unix time when this user was created

=cut

__PACKAGE__->add_columns(
  "id",
  { data_type => "text", is_nullable => 0 },
  "passphrase",
  { data_type => "text", is_nullable => 1 },
  "admin",
  { data_type => "boolean", default_value => \"false", is_nullable => 0 },
  "name",
  { data_type => "text", is_nullable => 1 },
  "email",
  { data_type => "text", is_nullable => 1 },
  "phone",
  { data_type => "text", is_nullable => 1 },
  "town",
  { data_type => "text", is_nullable => 1 },
  "university",
  { data_type => "text", is_nullable => 1 },
  "level",
  { data_type => "text", is_nullable => 1 },
  "country",
  { data_type => "text", is_nullable => 1 },
  "lastjob",
  { data_type => "bigint", is_nullable => 1 },
  "since",
  {
    data_type     => "bigint",
    default_value => \"(date_part('epoch'::text, now()))::bigint",
    is_nullable   => 1,
  },
);

=head1 PRIMARY KEY

=over 4

=item * L</id>

=back

=cut

__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=head2 contest_statuses

Type: has_many

Related object: L<Gruntmaster::Data::Result::ContestStatus>

=cut

__PACKAGE__->has_many(
  "contest_statuses",
  "Gruntmaster::Data::Result::ContestStatus",
  { "foreign.owner" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 contests

Type: has_many

Related object: L<Gruntmaster::Data::Result::Contest>

=cut

__PACKAGE__->has_many(
  "contests",
  "Gruntmaster::Data::Result::Contest",
  { "foreign.owner" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 jobs

Type: has_many

Related object: L<Gruntmaster::Data::Result::Job>

=cut

__PACKAGE__->has_many(
  "jobs",
  "Gruntmaster::Data::Result::Job",
  { "foreign.owner" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 opens

Type: has_many

Related object: L<Gruntmaster::Data::Result::Open>

=cut

__PACKAGE__->has_many(
  "opens",
  "Gruntmaster::Data::Result::Open",
  { "foreign.owner" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 problem_statuses

Type: has_many

Related object: L<Gruntmaster::Data::Result::ProblemStatus>

=cut

__PACKAGE__->has_many(
  "problem_statuses",
  "Gruntmaster::Data::Result::ProblemStatus",
  { "foreign.owner" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 problems

Type: has_many

Related object: L<Gruntmaster::Data::Result::Problem>

=cut

__PACKAGE__->has_many(
  "problems",
  "Gruntmaster::Data::Result::Problem",
  { "foreign.owner" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);


# Created by DBIx::Class::Schema::Loader v0.07042 @ 2015-02-10 18:42:04
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:L/ExLdA0pkJ1DeM+RzlDjw

use Bytes::Random::Secure qw/random_bytes/;
use Class::Method::Modifiers qw/after/;
use Digest::SHA qw/hmac_sha1_base64/;

after qw/insert update delete/ => sub {
	my ($self) = @_;
	Gruntmaster::Data::purge '/us/';
	Gruntmaster::Data::purge '/us/' . $self->id;
};

use Authen::Passphrase;
use Authen::Passphrase::BlowfishCrypt;

sub check_passphrase {
	my ($self, $pw) = @_;
	Authen::Passphrase->from_rfc2307($self->passphrase)->match($pw)
}

sub set_passphrase {
	my ($self, $pw) = @_;
	$self->update({passphrase => Authen::Passphrase::BlowfishCrypt->new(
		cost => 10,
		passphrase => $pw,
		salt_random => 1,
	)->as_rfc2307});
}

my $hmackey = $ENV{GRUNTMASTER_HMAC_KEY};

sub make_reset_hmac {
	my ($self, $expire) = @_;
	$expire  //= time + 60 * 60;
	$hmackey //= random_bytes 512;
	hmac_sha1_base64 $self->id . " $expire " . $self->passphrase, $hmackey;
}

1;

__END__

=head1 METHODS

=head2 check_passphrase(I<$passphrase>)

Returns true if I<$passphrase> is the correct passphrase, false otherwise.

=head2 set_passphrase(I<$passphrase>)

Changes the passphrase to I<$passphrase>.

=head1 AUTHOR

Marius Gavrilescu E<lt>marius@ieval.roE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2014 by Marius Gavrilescu

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.18.1 or,
at your option, any later version of Perl 5 you may have available.


=cut