package Vote;

use lib qw( lib local/lib/perl5 );
use Mojo::Base 'Mojolicious';

use CGI;
use Moose;
use MooseX::NonMoose;

# <snip other dependencies, several Moose-enabled attributes>

sub startup {
  my $self = shift;
  my $log_file = 'VoteApp.log';

# <snip>

  $self->plugin('CGI', {
    support_semicolon_in_query_string => 1,
     route => '/cgi-bin/index',
    script => '/opt/local/vote/vagrant/cf_vote/scripts/index',
    errlog => $log_file, 
  });

  # and several additional routes to legacy 2006 era cgi scripts
  
  $r->any(['GET','POST'] => '/cgi-bin/login')->to(
    controller => 'user-login',
        action => 'login_dispatch',
  );

  $r->any(['GET','POST'] => '/cgi-bin/password-reminder')->to(
    controller => 'user-login',
        action => 'login_dispatch',
  );

  $self->plugin('CGI', {
    support_semicolon_in_query_string => 1,
     route => '/cgi-bin/admin',
    script => '/opt/local/vote/vagrant/cf_vote/scripts/admin',
    errlog => $log_file, 
  });

# <snip>

}