8 files changed, 476 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/DB/Result/Abuse.pm b/perllib/FixMyStreet/DB/Result/Abuse.pm
new file mode 100644
index 000000000..55b22d433
--- /dev/null
+++ b/perllib/FixMyStreet/DB/Result/Abuse.pm
@@ -0,0 +1,19 @@
+package FixMyStreet::DB::Result::Abuse;
+
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->load_components("FilterColumn");
+__PACKAGE__->table("abuse");
+__PACKAGE__->add_columns( "email", { data_type => "text", is_nullable => 0 } );
+
+# Created by DBIx::Class::Schema::Loader v0.07010 @ 2011-03-28 12:14:16
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:fCIpGt51z5iDH9LmHeuRYQ
+
+# You can replace this text with custom code or comments, and it will be preserved on regeneration
+1;
diff --git a/perllib/FixMyStreet/DB/Result/Contact.pm b/perllib/FixMyStreet/DB/Result/Contact.pm
new file mode 100644
index 000000000..5a993a773
--- /dev/null
+++ b/perllib/FixMyStreet/DB/Result/Contact.pm
@@ -0,0 +1,45 @@
+package FixMyStreet::DB::Result::Contact;
+
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->load_components("FilterColumn");
+__PACKAGE__->table("contacts");
+__PACKAGE__->add_columns(
+    "area_id",
+    { data_type => "integer", is_nullable => 0 },
+    "category",
+    { data_type => "text", default_value => "Other", is_nullable => 0 },
+    "email",
+    { data_type => "text", is_nullable => 0 },
+    "confirmed",
+    { data_type => "boolean", is_nullable => 0 },
+    "deleted",
+    { data_type => "boolean", is_nullable => 0 },
+    "editor",
+    { data_type => "text", is_nullable => 0 },
+    "whenedited",
+    { data_type => "timestamp", is_nullable => 0 },
+    "note",
+    { data_type => "text", is_nullable => 0 },
+    "id",
+    {
+        data_type         => "integer",
+        is_auto_increment => 1,
+        is_nullable       => 0,
+        sequence          => "contacts_id_seq",
+    },
+);
+__PACKAGE__->set_primary_key("id");
+__PACKAGE__->add_unique_constraint( "contacts_area_id_category_idx",
+    [ "area_id", "category" ] );
+
+# Created by DBIx::Class::Schema::Loader v0.07010 @ 2011-03-24 17:36:08
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:u6kRlRfgwAiCqmGhj6io5A
+
+1;
diff --git a/perllib/FixMyStreet/DB/Result/Problem.pm b/perllib/FixMyStreet/DB/Result/Problem.pm
new file mode 100644
index 000000000..bafad4ec0
--- /dev/null
+++ b/perllib/FixMyStreet/DB/Result/Problem.pm
@@ -0,0 +1,190 @@
+package FixMyStreet::DB::Result::Problem;
+
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->load_components("FilterColumn");
+__PACKAGE__->table("problem");
+__PACKAGE__->add_columns(
+    "id",
+    {
+        data_type         => "integer",
+        is_auto_increment => 1,
+        is_nullable       => 0,
+        sequence          => "problem_id_seq",
+    },
+    "postcode",
+    { data_type => "text", is_nullable => 0 },
+    "council",
+    { data_type => "text", is_nullable => 1 },
+    "areas",
+    { data_type => "text", is_nullable => 0 },
+    "category",
+    { data_type => "text", default_value => "Other", is_nullable => 0 },
+    "title",
+    { data_type => "text", is_nullable => 0 },
+    "detail",
+    { data_type => "text", is_nullable => 0 },
+    "photo",
+    { data_type => "bytea", is_nullable => 1 },
+    "used_map",
+    { data_type => "boolean", is_nullable => 0 },
+    "name",
+    { data_type => "text", is_nullable => 0 },
+    "anonymous",
+    { data_type => "boolean", is_nullable => 0 },
+    "created",
+    {
+        data_type     => "timestamp",
+        default_value => \"ms_current_timestamp()",
+        is_nullable   => 0,
+    },
+    "confirmed",
+    { data_type => "timestamp", is_nullable => 1 },
+    "state",
+    { data_type => "text", is_nullable => 0 },
+    "lang",
+    { data_type => "text", default_value => "en-gb", is_nullable => 0 },
+    "service",
+    { data_type => "text", default_value => "", is_nullable => 0 },
+    "cobrand",
+    { data_type => "text", default_value => "", is_nullable => 0 },
+    "cobrand_data",
+    { data_type => "text", default_value => "", is_nullable => 0 },
+    "lastupdate",
+    {
+        data_type     => "timestamp",
+        default_value => \"ms_current_timestamp()",
+        is_nullable   => 0,
+    },
+    "whensent",
+    { data_type => "timestamp", is_nullable => 1 },
+    "send_questionnaire",
+    { data_type => "boolean", default_value => \"true", is_nullable => 0 },
+    "latitude",
+    { data_type => "double precision", is_nullable => 0 },
+    "longitude",
+    { data_type => "double precision", is_nullable => 0 },
+    "user_id",
+    { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
+);
+__PACKAGE__->set_primary_key("id");
+__PACKAGE__->belongs_to(
+    "user",
+    "FixMyStreet::DB::Result::User",
+    { id            => "user_id" },
+    { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
+);
+
+# Created by DBIx::Class::Schema::Loader v0.07010 @ 2011-03-24 17:36:08
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:+a9n7IKg3yFdgxNIbo3SGg
+
+=head2 check_for_errors
+
+    $error_hashref = $problem->check_for_errors();
+
+Look at all the fields and return a hashref with all errors found, keyed on the
+field name. This is intended to be passed back to the form to display the
+errors.
+
+TODO - ideally we'd pass back error codes which would be humanised in the
+templates (eg: 'missing','email_not_valid', etc).
+
+=cut
+
+sub check_for_errors {
+    my $self = shift;
+
+    my %errors = ();
+
+    $errors{title} = _('Please enter a subject')
+      unless $self->title =~ m/\S/;
+
+    $errors{detail} = _('Please enter some details')
+      unless $self->detail =~ m/\S/;
+
+    $errors{council} = _('No council selected')
+      unless $self->council
+          && $self->council =~ m/^(?:-1|[\d,]+(?:\|[\d,]+)?)$/;
+
+    if ( $self->name !~ m/\S/ ) {
+        $errors{name} = _('Please enter your name');
+    }
+    elsif (length( $self->name ) < 5
+        || $self->name !~ m/\s/
+        || $self->name =~ m/\ba\s*n+on+((y|o)mo?u?s)?(ly)?\b/i )
+    {
+        $errors{name} = _(
+'Please enter your full name, councils need this information - if you do not wish your name to be shown on the site, untick the box'
+        );
+    }
+
+    if (   $self->category
+        && $self->category eq _('-- Pick a category --') )
+    {
+        $errors{category} = _('Please choose a category');
+        $self->category(undef);
+    }
+    elsif ($self->category
+        && $self->category eq _('-- Pick a property type --') )
+    {
+        $errors{category} = _('Please choose a property type');
+        $self->category(undef);
+    }
+
+    return \%errors;
+}
+
+=head2 is_from_abuser
+
+    $bool = $problem->is_from_abuser(  );
+
+Returns true if the user's email or its domain is listed in the 'abuse' table.
+
+=cut
+
+sub is_from_abuser {
+    my $self = shift;
+
+    # get the domain
+    my $email = $self->user->email;
+    my ($domain) = $email =~ m{ @ (.*) \z }x;
+
+    # search for an entry in the abuse table
+    my $abuse_rs = $self->result_source->schema->resultset('Abuse');
+
+    return
+         $abuse_rs->find( { email => $email } )
+      || $abuse_rs->find( { email => $domain } )
+      || undef;
+}
+
+=head2 confirm
+
+    $bool = $problem->confirm(  );
+    $problem->update;
+
+
+Set the state to 'confirmed' and put current time into 'confirmed' field. This
+is a no-op if the report is already confirmed.
+
+NOTE - does not update storage - call update or insert to do that.
+
+=cut
+
+sub confirm {
+    my $self = shift;
+
+    return if $self->state eq 'confirmed';
+
+    $self->state('confirmed');
+    $self->confirmed( \'ms_current_timestamp()' );
+    return 1;
+}
+
+1;
diff --git a/perllib/FixMyStreet/DB/Result/Session.pm b/perllib/FixMyStreet/DB/Result/Session.pm
new file mode 100644
index 000000000..a50c3780b
--- /dev/null
+++ b/perllib/FixMyStreet/DB/Result/Session.pm
@@ -0,0 +1,24 @@
+package FixMyStreet::DB::Result::Session;
+
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->load_components("FilterColumn");
+__PACKAGE__->table("sessions");
+__PACKAGE__->add_columns(
+    "id", { data_type => "char", is_nullable => 0, size => 72 },
+    "session_data", { data_type => "text",    is_nullable => 1 },
+    "expires",      { data_type => "integer", is_nullable => 1 },
+);
+__PACKAGE__->set_primary_key("id");
+
+# Created by DBIx::Class::Schema::Loader v0.07010 @ 2011-03-24 17:36:08
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:E6SUYbAPJMQSXTrvn0x3kg
+
+# You can replace this text with custom code or comments, and it will be preserved on regeneration
+1;
diff --git a/perllib/FixMyStreet/DB/Result/Token.pm b/perllib/FixMyStreet/DB/Result/Token.pm
new file mode 100644
index 000000000..e4ea7262a
--- /dev/null
+++ b/perllib/FixMyStreet/DB/Result/Token.pm
@@ -0,0 +1,86 @@
+package FixMyStreet::DB::Result::Token;
+
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->load_components("FilterColumn");
+__PACKAGE__->table("token");
+__PACKAGE__->add_columns(
+    "scope",
+    { data_type => "text", is_nullable => 0 },
+    "token",
+    { data_type => "text", is_nullable => 0 },
+    "data",
+    { data_type => "bytea", is_nullable => 0 },
+    "created",
+    {
+        data_type     => "timestamp",
+        default_value => \"ms_current_timestamp()",
+        is_nullable   => 0,
+    },
+);
+__PACKAGE__->set_primary_key( "scope", "token" );
+
+# Created by DBIx::Class::Schema::Loader v0.07010 @ 2011-03-24 17:36:08
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:tClh4Spd63IpCeiGVHfrEQ
+
+# Trying not to use this
+# use mySociety::DBHandle qw(dbh);
+
+use mySociety::AuthToken;
+use IO::String;
+use RABX;
+
+=head1 NAME
+
+FixMyStreet::DB::Result::Token
+
+=head2 DESCRIPTION
+
+Representation of mySociety::AuthToken in the DBIx::Class world.
+
+Mostly done so that we don't need to use mySociety::DBHandle.
+
+The 'data' value is automatically inflated and deflated in the same way that the
+AuthToken would do it. 'token' is set to a new random value by default and the
+'created' timestamp is achieved using the database function
+ms_current_timestamp.
+
+=cut
+
+__PACKAGE__->filter_column(
+    data => {
+        filter_from_storage => sub {
+            my $self = shift;
+            my $ser  = shift;
+            return undef unless defined $ser;
+            my $h = new IO::String($ser);
+            return RABX::wire_rd($h);
+        },
+        filter_to_storage => sub {
+            my $self = shift;
+            my $data = shift;
+            my $ser  = '';
+            my $h    = new IO::String($ser);
+            RABX::wire_wr( $data, $h );
+            return $ser;
+        },
+    }
+);
+
+sub new {
+    my ( $class, $attrs ) = @_;
+
+    $attrs->{token}   ||= mySociety::AuthToken::random_token();
+    $attrs->{created} ||= \'ms_current_timestamp()';
+
+    my $new = $class->next::method($attrs);
+    return $new;
+}
+
+1;
diff --git a/perllib/FixMyStreet/DB/Result/User.pm b/perllib/FixMyStreet/DB/Result/User.pm
new file mode 100644
index 000000000..32361ca48
--- /dev/null
+++ b/perllib/FixMyStreet/DB/Result/User.pm
@@ -0,0 +1,84 @@
+package FixMyStreet::DB::Result::User;
+
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->load_components("FilterColumn");
+__PACKAGE__->table("users");
+__PACKAGE__->add_columns(
+    "id",
+    {
+        data_type         => "integer",
+        is_auto_increment => 1,
+        is_nullable       => 0,
+        sequence          => "users_id_seq",
+    },
+    "email",
+    { data_type => "text", is_nullable => 0 },
+    "name",
+    { data_type => "text", is_nullable => 1 },
+    "phone",
+    { data_type => "text", is_nullable => 1 },
+    "password",
+    { data_type => "text", default_value => "", is_nullable => 0 },
+);
+__PACKAGE__->set_primary_key("id");
+__PACKAGE__->add_unique_constraint( "users_email_key", ["email"] );
+__PACKAGE__->has_many(
+    "problems",
+    "FixMyStreet::DB::Result::Problem",
+    { "foreign.user_id" => "self.id" },
+    { cascade_copy      => 0, cascade_delete => 0 },
+);
+
+# Created by DBIx::Class::Schema::Loader v0.07010 @ 2011-03-24 17:36:08
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:36KVfhjrygEEmpmWm/vZBg
+
+use mySociety::EmailUtil;
+
+=head2 check_for_errors
+
+    $error_hashref = $problem->check_for_errors();
+
+Look at all the fields and return a hashref with all errors found, keyed on the
+field name. This is intended to be passed back to the form to display the
+errors.
+
+TODO - ideally we'd pass back error codes which would be humanised in the
+templates (eg: 'missing','email_not_valid', etc).
+
+=cut
+
+sub check_for_errors {
+    my $self = shift;
+
+    my %errors = ();
+
+    if ( $self->name !~ m/\S/ ) {
+        $errors{name} = _('Please enter your name');
+    }
+    elsif (length( $self->name ) < 5
+        || $self->name !~ m/\s/
+        || $self->name =~ m/\ba\s*n+on+((y|o)mo?u?s)?(ly)?\b/i )
+    {
+        $errors{name} = _(
+'Please enter your full name, councils need this information - if you do not wish your name to be shown on the site, untick the box'
+        );
+    }
+
+    if ( $self->email !~ /\S/ ) {
+        $errors{email} = _('Please enter your email');
+    }
+    elsif ( !mySociety::EmailUtil::is_valid_email( $self->email ) ) {
+        $errors{email} = _('Please enter a valid email');
+    }
+
+    return \%errors;
+}
+
+1;
diff --git a/perllib/FixMyStreet/DB/ResultSet/Contact.pm b/perllib/FixMyStreet/DB/ResultSet/Contact.pm
new file mode 100644
index 000000000..52ff498a6
--- /dev/null
+++ b/perllib/FixMyStreet/DB/ResultSet/Contact.pm
@@ -0,0 +1,20 @@
+package FixMyStreet::DB::ResultSet::Contact;
+use base 'DBIx::Class::ResultSet';
+
+use strict;
+use warnings;
+
+=head2 not_deleted
+
+    $rs = $rs->not_deleted();
+
+Filter down to not deleted contacts - which have C<deleted> set to false;
+
+=cut
+
+sub not_deleted {
+    my $rs = shift;
+    return $rs->search( { deleted => 0 } );
+}
+
+1;
diff --git a/perllib/FixMyStreet/DB/ResultSet/User.pm b/perllib/FixMyStreet/DB/ResultSet/User.pm
new file mode 100644
index 000000000..7e657a936
--- /dev/null
+++ b/perllib/FixMyStreet/DB/ResultSet/User.pm
@@ -0,0 +1,8 @@
+package FixMyStreet::DB::ResultSet::User;
+use base 'DBIx::Class::ResultSet';
+
+use strict;
+use warnings;
+
+
+1;