Portable way to get information about the current user

[Peter Stoehr]

Hi out there,

I'm looking for a way to find out which user is executing a tcl-script.
Portable means that it should work on Windows-NT and on Unix-Systems.

Has anyone an idea ?

Thanks in advance
Peter

[Cameron Laird]

In article <01bd4ceb$8149b9c0$0f8c18ac@muc14280>,

Peter Stoehr <pst...@amadeus.net> wrote:
>Hi out there,
>
>I'm looking for a way to find out which user is executing a tcl-script.
>Portable means that it should work on Windows-NT and on Unix-Systems.

.
.
.
The notion of "user" isn't particularly portable.
Here's a first approximation:

proc user {} {
global env tcl_platform

switch $tcl_platform(platform) {
windows {
return $env(USERNAME)
}
unix {
return $env(USER)
}
}
}
--

Cameron Laird http://starbase.neosoft.com/~claird/home.html
cla...@NeoSoft.com +1 713 996 8546 FAX