Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
emulab
emulab-devel
Commits
af380123
Commit
af380123
authored
Nov 08, 2007
by
Russ Fish
Browse files
Propagate fix: Null string attr comes from XML as an undef value.
parent
292ebd11
Changes
13
Hide whitespace changes
Inline
Side-by-side
account/addpubkey.in
View file @
af380123
...
...
@@ -631,6 +631,9 @@ sub ParseXmlArgs($$$$$$) {
foreach
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
if
(
$debug
)
{
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
";
...
...
account/newproj.in
View file @
af380123
...
...
@@ -202,6 +202,9 @@ my %newproj_args = ();
foreach
my
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
if
(
$debug
)
{
my
$prval
=
(
defined
(
$value
)
?
$value
:
"
NULL
");
...
...
account/newuser.in
View file @
af380123
...
...
@@ -191,6 +191,9 @@ my %newuser_args = ();
foreach
my
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
if
(
$debug
)
{
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
";
...
...
backend/editexp.in
View file @
af380123
...
...
@@ -186,6 +186,9 @@ my %editexp_args = ();
foreach
my
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
if
(
$debug
)
{
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
";
...
...
backend/editgroup.in
View file @
af380123
...
...
@@ -170,6 +170,9 @@ my %editgroup_args = ();
foreach
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
if
(
$debug
)
{
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
";
...
...
backend/editimageid.in
View file @
af380123
...
...
@@ -201,6 +201,9 @@ my $foo;
foreach
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
if
(
$debug
)
{
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
";
...
...
backend/editnodetype.in
View file @
af380123
...
...
@@ -226,6 +226,9 @@ my @wildkeys = reverse(sort(keys(%wildcards)));
foreach
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
"
if
(
$debug
);
...
...
backend/editsitevars.in
View file @
af380123
...
...
@@ -173,6 +173,9 @@ my %editsitevars_args = ();
foreach
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
if
(
$debug
)
{
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
";
...
...
backend/newgroup.in
View file @
af380123
...
...
@@ -173,6 +173,9 @@ my %newgroup_args = ();
foreach
my
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
if
(
$debug
)
{
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
";
...
...
backend/newimageid.in
View file @
af380123
...
...
@@ -214,6 +214,9 @@ my @wildkeys = reverse(sort(keys(%wildcards)));
foreach
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
"
if
(
$debug
);
...
...
backend/newimageid_ez.in
View file @
af380123
...
...
@@ -216,6 +216,9 @@ my @wildkeys = reverse(sort(keys(%wildcards)));
foreach
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
"
if
(
$debug
);
...
...
backend/newmmlist.in
View file @
af380123
...
...
@@ -175,6 +175,9 @@ my %newmmlist_args = ();
foreach
my
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
if
(
$debug
)
{
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
";
...
...
backend/newosid.in
View file @
af380123
...
...
@@ -182,6 +182,9 @@ my %newosid_args = ();
foreach
my
$key
(
keys
(
%
{
$xmlparse
->
{'
attribute
'}
}))
{
my
$value
=
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'};
if
(
!
defined
(
$value
))
{
# Empty string comes from XML as an undef value.
$xmlparse
->
{'
attribute
'}
->
{"
$key
"}
->
{'
value
'}
=
$value
=
"";
}
if
(
$debug
)
{
print
STDERR
"
User attribute: '
$key
' -> '
$value
'
\n
";
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment