<%init>
#use lib qw(/usr/local/MOPS/lib/perl5 /usr/local/MOPS/lib/perl5/x86_64-linux);
use PS::MOPS::DC::Instance;
my $arg = $m->dhandler_arg;

# Get model and MOPS_HOME.
my ($model, $rest) = split "/", $arg;

if($model eq "alerts") {
  $m->comp($arg, $m->request_args);
} else {
  my $inst = PS::MOPS::DC::Instance->new(DBNAME => $model);
  $m->notes('MODEL', $model);
  $m->notes('INST', $inst);
  $m->comp($rest, $m->request_args);
}
</%init>
