PAL.C.T MINI SHELL
# cshrc-lib.pl
BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
&switch_to_remote_user();
&create_user_config_dirs();
if ($remote_user_info[8] =~ /\/(csh|tcsh)$/) {
@cshrc_files = ( "$remote_user_info[7]/.cshrc",
"$remote_user_info[7]/.login" );
@cshrc_types = ( 0, 1 );
}
elsif ($remote_user_info[8] =~ /\/bash$/ ||
&resolve_links($remote_user_info[8]) =~ /\/bash$/) {
@cshrc_files = ( "$remote_user_info[7]/.bashrc",
"$remote_user_info[7]/.profile" );
@cshrc_types = ( 0, 1 );
}
else {
@cshrc_files = ( "$remote_user_info[7]/.profile" );
@cshrc_types = ( 1 );
}
1;
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`