#!/usr/local/bin/perl

use lib "../cgi-bin/cgiwrap/dsoft/";
use strict;
use DSAdmin_test;

my $dsadmin = DSAdmin_test->new();
$dsadmin->run();

##</code><code>##

#DSAdmin
package DSAdmin_test;
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use base 'CGI::Application';

#------------------------ redirection ------------------------

sub setup {
   my $self = shift;
   $self->mode_param('rm');
   $self->run_modes(
      'ss' => 'save_subsrbr',
      );
}

sub save_subsrbr {
   my @errors = qw(incorrect wrong);
   
   if (@errors) { 
      errorhandler (\@errors);
      return "here2: " . Dumper(@errors);
   }
}

sub errorhandler {
   my $errors      = shift;
   return "here1: " . Dumper($errors);   
}
1;