Skip to content
GitLab
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
36b179cc
Commit
36b179cc
authored
Feb 04, 2015
by
Leigh B Stoller
Browse files
Allow lookup by osid:version.
parent
a350d345
Changes
1
Hide whitespace changes
Inline
Side-by-side
db/OSinfo.pm.in
View file @
36b179cc
#
!/usr/bin/perl -wT
#
#
Copyright
(
c
)
2007
-
201
4
University
of
Utah
and
the
Flux
Group
.
#
Copyright
(
c
)
2007
-
201
5
University
of
Utah
and
the
Flux
Group
.
#
#
{{{
EMULAB
-
LICENSE
#
...
...
@@ -144,6 +144,17 @@ sub Lookup($$;$$)
return
BlessRow
($
class
,
$
result
->
fetchrow_hashref
());
}
elsif
($
arg1
=~
/^(\
d
+):(\
d
+)$/)
{
my
$
result
=
DBQueryWarn
(
"select v.* from os_info as o "
.
"left join os_info_versions as v on "
.
" v.osid=o.osid "
.
"where o.osid='$1' and v.vers='$2'"
);
return
undef
if
(
! $result || !$result->numrows);
return
BlessRow
($
class
,
$
result
->
fetchrow_hashref
());
}
elsif
($
arg1
=~
/^([-\
w
]*),([-\
w
\.\+]*)$/
||
$
arg1
=~
/^([-\
w
]*)\/([-\
w
\.\+]*)$/)
{
my
$
result
=
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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