1 files changed, 78 insertions, 0 deletions
diff --git a/extensions/NewAcctAntiSpam/Extension.pm b/extensions/NewAcctAntiSpam/Extension.pm
new file mode 100644
index 000000000..b779269e1
--- /dev/null
+++ b/extensions/NewAcctAntiSpam/Extension.pm
@@ -0,0 +1,78 @@
+package Bugzilla::Extension::NewAcctAntiSpam;
+
+use strict;
+use warnings;
+
+use base qw(Bugzilla::Extension);
+
+use DateTime;
+
+use Bugzilla::Error;
+use Bugzilla::Util qw(remote_ip datetime_from);
+
+BEGIN {
+  *Bugzilla::User::acct_created_ts     = \&_user_acct_created_ts;
+  *Bugzilla::User::set_acct_created_ts = \&_user_set_acct_created_ts;
+}
+
+sub _user_acct_created_ts { $_[0]->{acct_created_ts} }
+
+sub _user_set_acct_created_ts {
+  my ($self, $value) = @_;
+  $self->set('acct_created_ts', $_[1]);
+
+  Bugzilla->dbh->do("UPDATE profiles SET acct_created_ts = ? WHERE userid = ?",
+    undef, $value, $self->id);
+  Bugzilla->memcached->clear({table => 'profiles', id => $self->id});
+}
+
+sub object_end_of_create {
+  my ($self, $args) = @_;
+  my $object = $args->{object} or return;
+  return if exists $args->{changes} && !scalar(keys %{$args->{changes}});
+
+  if ($object->isa('Bugzilla::User')) {
+    my $now = DateTime->now->datetime(' ');
+    $object->set_acct_created_ts($now);
+  }
+}
+
+sub object_end_of_create_validators {
+  my ($self, $args) = @_;
+  if ($args->{class} eq 'Bugzilla::Comment') {
+    if ($args->{params}->{thetext} =~ /https?:\/\//i) {
+      my $user      = Bugzilla->user;
+      my $created   = $user->acct_created_ts;
+      if ($created) {
+        my $dayafter = (datetime_from($created)
+          + DateTime::Duration->new(days => 1));
+        if (DateTime->now < $dayafter) {
+          ThrowUserError('antispam_comment_blocked');
+        }
+      }
+    }
+  }
+}
+
+sub object_columns {
+  my ($self,  $args)    = @_;
+  my ($class, $columns) = @$args{qw(class columns)};
+  if ($class->isa('Bugzilla::User')) {
+    push(@$columns, qw(acct_created_ts));
+  }
+}
+
+sub object_update_columns {
+  my ($self,   $args)    = @_;
+  my ($object, $columns) = @$args{qw(object columns)};
+  if ($object->isa('Bugzilla::User')) {
+    push(@$columns, qw(acct_created_ts));
+  }
+}
+
+sub install_update_db {
+  my $dbh = Bugzilla->dbh;
+  $dbh->bz_add_column('profiles', 'acct_created_ts', {TYPE => 'DATETIME'});
+}
+
+__PACKAGE__->NAME;