Francesco
28th April 2005, 19:46
Why isn't this working?
function extern long setenv(string varname(256), string input.string(1024))
{
string command(1024)
if isspace(input.string) or isspace(varname) then
return(-1)
else
| command = varname & "=""" & input.string & """; export " & varname | sh
command = "export " & varname & "=""" & input.string & """" | ksh/bash
| command = "setenv " & varname & " """ & input.string & """" | csh/tcsh
ret = shell(command, SHELL_BACKGROUND)
| run.prog(command, "", RP_NOWAIT)
if input.string = getenv$(varname) then
return(1)
else
return(-1)
endif
endif
}
function extern long setenv(string varname(256), string input.string(1024))
{
string command(1024)
if isspace(input.string) or isspace(varname) then
return(-1)
else
| command = varname & "=""" & input.string & """; export " & varname | sh
command = "export " & varname & "=""" & input.string & """" | ksh/bash
| command = "setenv " & varname & " """ & input.string & """" | csh/tcsh
ret = shell(command, SHELL_BACKGROUND)
| run.prog(command, "", RP_NOWAIT)
if input.string = getenv$(varname) then
return(1)
else
return(-1)
endif
endif
}