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

account: implement immediate deletion

parent 34993111

lib/Travelynx/Command/account.pm

+5 −1
Original line number Diff line number Diff line
@@ -81,7 +81,11 @@ sub really_delete_user { 
		return;

	}



	say "Immediate deletion is not implemented yet.";

	my $count = $self->app->users->delete( uid => $uid );



	printf( "Deleted %s -- %d tokens, %d monthly stats, %d journeys\n",

		$name, $count->{tokens}, $count->{stats}, $count->{journeys} );



	return;

}