Select Code to Download

103a104,106
>         PerlSetVar  CGIAPP_DEFAULT_RM            Login
...
>     my ( $path, $default ) = @_;
>     my $rm = (split(/\//, $path))[2];
>     return defined $rm ? $rm : $default;