Commit e9bccd11 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Create webkey file in /proj exp directory, so that available for

possible use in web non-interactive web access. Currently, the web key
is used just to download tar/rpm files to remote nodes.
parent 6a23ddf4
......@@ -183,7 +183,7 @@ use vars qw(@ISA @EXPORT);
TBDB_ROUTERTYPE_NONE TBDB_ROUTERTYPE_OSPF
TBDB_ROUTERTYPE_STATIC TBDB_ROUTERTYPE_MANUAL
TBDB_EVENTKEY
TBDB_EVENTKEY TBDB_WEBKEY
TBDB_CHECKDBSLOT_NOFLAGS TBDB_CHECKDBSLOT_WARN TBDB_CHECKDBSLOT_ERROR
max min TBcheck_dbslot
hash_recurse array_recurse hash_recurse2 array_recurse2
......@@ -576,8 +576,9 @@ sub TBDB_ROUTERTYPE_OSPF() { "ospf"; }
sub TBDB_ROUTERTYPE_STATIC() { "static"; }
sub TBDB_ROUTERTYPE_MANUAL() { "manual"; }
# Event Stuff
# Key Stuff
sub TBDB_EVENTKEY($$) { TBExptUserDir($_[0],$_[1]) . "/tbdata/eventkey"; }
sub TBDB_WEBKEY($$) { TBExptUserDir($_[0],$_[1]) . "/tbdata/webkey"; }
# Regex stuff
sub TBDB_CHECKDBSLOT_NOFLAGS() { 0x0; }
......
......@@ -2,7 +2,7 @@
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2003 University of Utah and the Flux Group.
# Copyright (c) 2000-2004 University of Utah and the Flux Group.
# All rights reserved.
#
......@@ -253,6 +253,12 @@ if ($EVENTSYS) {
close(KEY);
}
# And dump the web key too.
open(KEY, ">" . TBDB_WEBKEY($pid, $eid)) or
fatal("Could not create webkey file: $!");
print KEY $webkey;
close(KEY);
#
# If no NS file, we are done. We must unlock it and reset its state
# appropriately. We leave the experiment in the "new" state so that
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment