head 1.2;
access;
symbols
v3_1_0:1.1.1.1
FSF:1.1.1;
locks; strict;
comment @# @;
1.2
date 2002.06.20.20.54.47; author obrien; state dead;
branches;
next 1.1;
1.1
date 2001.11.02.21.06.07; author obrien; state Exp;
branches
1.1.1.1;
next ;
1.1.1.1
date 2001.11.02.21.06.07; author obrien; state Exp;
branches;
next ;
desc
@@
1.2
log
@Remove GAWK. I removed it from the build 2 weeks ago and the world
did not end. So finish the deed.
@
text
@function SetUpServer() {
TopHeader = "Remote Configuration"
TopDoc = "\
Please choose one of the following actions:
\
"
TopFooter = ""
if (ConfigFile == "") ConfigFile = "config.asc"
}
function HandleGET() {
if(MENU[2] == "AboutServer") {
Document = "This is a GUI for remote configuration of an\
embedded system. It is is implemented as one GAWK script."
} else if (MENU[2] == "ReadConfig") {
RS = "\n"
while ((getline < ConfigFile) > 0)
config[$1] = $2;
close(ConfigFile)
RS = "\r\n"
Document = "Configuration has been read."
} else if (MENU[2] == "CheckConfig") {
Document = ""
for (i in config)
Document = Document "| " i " | " \
"" config[i] " |
"
Document = Document "
"
} else if (MENU[2] == "ChangeConfig") {
if ("Param" in GETARG) { # any parameter to set?
if (GETARG["Param"] in config) { # is parameter valid?
config[GETARG["Param"]] = GETARG["Value"]
Document = (GETARG["Param"] " = " GETARG["Value"] ".")
} else {
Document = "Parameter " GETARG["Param"] " is invalid."
}
} else {
Document = ""
}
} else if (MENU[2] == "SaveConfig") {
for (i in config)
printf("%s %s\n", i, config[i]) > ConfigFile
close(ConfigFile)
Document = "Configuration has been saved."
}
}
@
1.1
log
@Initial revision
@
text
@@
1.1.1.1
log
@Update vendor branch to gawk-3.1.0.
@
text
@@