view release on metacpan or  search on metacpan

MsqlCGI-bin/MsqlCGI.pm  view on Meta::CPAN

  	if ( ( substr ( $fileName, 0, 1 ) ) !~ /[~\/]/ ) ;

  &main::DPrint ( "After first substitution: $fileName" );

  $fileName =~ s/^~(\w*)/
    if ( $1 ) {
      ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = 
      getpwnam ( $1 ); $dir
    } else {
      ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = 
      getpwuid ( $< ); $dir
    }/ge;
  &main::DPrint ( "After second substitution.  Returning: $fileName" );
  return $fileName;
}



#######################################################################
# DPrint
#