-
-
Notifications
You must be signed in to change notification settings - Fork 241
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
b2518f4
commit 9dd1054
Showing
10 changed files
with
695 additions
and
5 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,55 @@ | ||
| #!/usr/bin/env perl | ||
|
|
||
| use strict; | ||
| use warnings; | ||
|
|
||
| BEGIN { # set all the paths to the perl code | ||
| use File::Basename qw(dirname); | ||
| use File::Spec; | ||
| my $d = dirname(File::Spec->rel2abs($0)); | ||
| require "$d/../setenv.pl"; | ||
| } | ||
|
|
||
| use Integrations::AccessPaySuite; | ||
|
|
||
| my $client = Integrations::AccessPaySuite->new( | ||
| config => { | ||
| endpoint => 'https://playpen.accesspaysuite.com', | ||
| client_code => 'APIRTM', | ||
| api_key => $ENV{ACCESS_PAYSUITE_API_KEY} | ||
| } | ||
| ); | ||
|
|
||
| # Create a customer | ||
| my $customer = $client->create_customer({ | ||
| customerRef => '[email protected]', | ||
| email => '[email protected]', | ||
| title => 'Mr', | ||
| firstName => 'John', | ||
| surname => 'Doe', | ||
| postCode => 'SE1 1AA', | ||
| accountNumber => '12345678', | ||
| bankSortCode => '123456', | ||
| accountHolderName => 'John Doe', | ||
| line1 => '123 Main St', | ||
| line2 => 'Apt 1', | ||
| }); | ||
| use Devel::Dwarn; | ||
| ::Dwarn($customer); | ||
|
|
||
| # Set up a direct debit | ||
| my $contract = $client->create_contract($customer->{Id}, { | ||
| scheduleId => '38491b98-e3dd-45c1-80e7-e44941e481c6', | ||
| start => '2025-03-01T00:00:00.000', | ||
| isGiftAid => 0, | ||
| terminationType => "Until further notice", | ||
| atTheEnd => "Switch to further notice", | ||
| paymentMonthInYear => 3, | ||
| additionalReference => 'BEXLEY GGW', | ||
| paymentDayInMonth => 28, | ||
| amount => 50.00, | ||
| }); | ||
| ::Dwarn($contract); | ||
|
|
||
| print "Customer ID: $customer->{Id}\n"; | ||
| print "Contract ID: $contract->{Id}\n"; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,156 @@ | ||
| package FixMyStreet::App::Form::Waste::BankDetails; | ||
|
|
||
| use utf8; | ||
| use HTML::FormHandler::Moose; | ||
| use mySociety::PostcodeUtil; | ||
| extends 'FixMyStreet::App::Form::Waste'; | ||
|
|
||
| has_field name_title => ( | ||
| type => 'Text', | ||
| required => 1, | ||
| label => 'Title (e.g. Mr, Mrs, Ms, Dr, etc.)', | ||
| ); | ||
|
|
||
| has_field first_name => ( | ||
| type => 'Text', | ||
| required => 1, | ||
| label => 'First name', | ||
| validate_method => sub { | ||
| my $self = shift; | ||
| return unless $self->value; | ||
| $self->add_error('First name must be 255 characters or less') if length($self->value) > 255; | ||
| }, | ||
| ); | ||
|
|
||
| has_field surname => ( | ||
| type => 'Text', | ||
| required => 1, | ||
| label => 'Surname', | ||
| validate_method => sub { | ||
| my $self = shift; | ||
| return unless $self->value; | ||
| $self->add_error('Surname must be 255 characters or less') if length($self->value) > 255; | ||
| }, | ||
| ); | ||
|
|
||
| has_field address1 => ( | ||
| type => 'Text', | ||
| required => 1, | ||
| label => 'Address line 1', | ||
| validate_method => sub { | ||
| my $self = shift; | ||
| return unless $self->value; | ||
| $self->add_error('Address line 1 must be 50 characters or less') | ||
| if length($self->value) > 50; | ||
| }, | ||
| ); | ||
|
|
||
| has_field address2 => ( | ||
| type => 'Text', | ||
| required => 1, | ||
| label => 'Address line 2', | ||
| validate_method => sub { | ||
| my $self = shift; | ||
| return unless $self->value; | ||
| $self->add_error('Address line 2 must be 30 characters or less') | ||
| if length($self->value) > 30; | ||
| }, | ||
| ); | ||
|
|
||
| has_field address3 => ( | ||
| type => 'Text', | ||
| required => 0, | ||
| label => 'Address line 3', | ||
| validate_method => sub { | ||
| my $self = shift; | ||
| return unless $self->value; | ||
| $self->add_error('Address line 3 must be 30 characters or less') | ||
| if length($self->value) > 30; | ||
| }, | ||
| ); | ||
|
|
||
| has_field address4 => ( | ||
| type => 'Text', | ||
| required => 0, | ||
| label => 'Address line 4', | ||
| validate_method => sub { | ||
| my $self = shift; | ||
| return unless $self->value; | ||
| $self->add_error('Address line 4 must be 30 characters or less') | ||
| if length($self->value) > 30; | ||
| }, | ||
| ); | ||
|
|
||
| has_field post_code => ( | ||
| type => 'Text', | ||
| required => 1, | ||
| label => 'Post code', | ||
| validate_method => sub { | ||
| my $self = shift; | ||
| return unless $self->value; | ||
| $self->add_error('Please enter a valid postcode') | ||
| unless mySociety::PostcodeUtil::is_valid_postcode($self->value); | ||
| }, | ||
| ); | ||
|
|
||
| has_field account_holder => ( | ||
| type => 'Text', | ||
| required => 1, | ||
| label => 'Name of account holder', | ||
| validate_method => sub { | ||
| my $self = shift; | ||
| return unless $self->value; | ||
| my $value = $self->value; | ||
| # Remove any special characters, keeping only alphanumeric and spaces | ||
| $value =~ s/[^a-zA-Z0-9 ]//g; | ||
| $self->add_error('Account holder name must be 18 characters or less') | ||
| if length($value) > 18; | ||
| # Update the value to the cleaned version | ||
| $self->value($value); | ||
| }, | ||
| ); | ||
|
|
||
| has_field account_number => ( | ||
| type => 'Text', | ||
| required => 1, | ||
| label => 'Account number', | ||
| validate_method => sub { | ||
| my $self = shift; | ||
| return unless $self->value; | ||
| $self->add_error('Please enter a valid 8 digit account number') | ||
| unless $self->value =~ /^\d{8}$/; | ||
| }, | ||
| ); | ||
|
|
||
| has_field sort_code => ( | ||
| type => 'Text', | ||
| required => 1, | ||
| label => 'Sort code', | ||
| validate_method => sub { | ||
| my $self = shift; | ||
| return unless $self->value; | ||
| my $sort_code = $self->value; | ||
| $sort_code =~ s/[^0-9]//g; | ||
| $self->add_error('Please enter a valid 6 digit sort code') | ||
| unless $sort_code =~ /^\d{6}$/; | ||
| }, | ||
| ); | ||
|
|
||
| # Create a dedicated page for entering bank details. | ||
| has_page bank_details => ( | ||
| title => 'Enter Your Bank Details', | ||
| template => 'waste/bank_details.html', | ||
| fields => ['account_holder', 'account_number', 'sort_code', 'reference', 'amount', 'report_id', 'submit'], | ||
| next => sub { | ||
| my $form = shift; | ||
| return $form->wizard_finished('process_bank_details'); | ||
| }, | ||
| ); | ||
|
|
||
| has_field submit => ( | ||
| type => 'Submit', | ||
| value => 'Set up Direct Debit', | ||
| element_attr => { class => 'govuk-button' }, | ||
| ); | ||
|
|
||
| 1; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.