# Execute Dev-Editor's commands
#
# Author: Patrick Canterino <patshaping@gmx.net>
-# Last modified: 2004-10-30
+# Last modified: 2004-10-31
#
use strict;
# Dev-Editor is running on a system which allows users and groups
# So we display the user and the group of our process
- require POSIX;
-
my $uid = POSIX::getuid;
my $gid = POSIX::getgid;
$tpl->fillin("USER",getpwuid($uid));
$tpl->fillin("GROUP",getgrgid($gid));
+
+ # Process umask
+
+ $tpl->fillin("UMASK",sprintf("%04o",umask));
}
else
{