Unverified Commit 8400a356 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

maintenance, account: adjust to real-world conditions on travelynx.de

parent 76cdc6be

lib/Travelynx/Command/maintenance.pm

+1 −1
Original line number Original line Diff line number Diff line
@@ -121,7 +121,7 @@ sub run { 
	push( @uids_to_delete,

	push( @uids_to_delete,

		$to_delete->arrays->map( sub { shift->[0] } )->each );

		$to_delete->arrays->map( sub { shift->[0] } )->each );





	if ( @uids_to_delete > 10 ) {

	if ( @uids_to_delete > 60 ) {

		printf STDERR (

		printf STDERR (

			"About to delete %d accounts, which is quite a lot.\n",

			"About to delete %d accounts, which is quite a lot.\n",

			scalar @uids_to_delete

			scalar @uids_to_delete

lib/Travelynx/Controller/Account.pm

+2 −2
Original line number Original line Diff line number Diff line
@@ -345,9 +345,9 @@ sub register { 
	}

	}





	if ( not $dt

	if ( not $dt

		or DateTime->now( time_zone => 'Europe/Berlin' )->epoch - $dt < 6 )

		or DateTime->now( time_zone => 'Europe/Berlin' )->epoch - $dt < 10 )

	{

	{

		# a human user should take at least five seconds to fill out the form.

		# a human user should take at least ten seconds to fill out the form.

		# Throw a CSRF error at presumed spammers.

		# Throw a CSRF error at presumed spammers.

		$self->render(

		$self->render(

			'bad_request',

			'bad_request',