added client hostname and deploy of configuration over web

[pxelator] / lib / PXElator / html.pm

diff --git a/lib/PXElator/html.pm b/lib/PXElator/html.pm
index 6ac4df3..857f923 100644 (file)
--- a/lib/PXElator/html.pm
+++ b/lib/PXElator/html.pm
@@ -27,6 +27,17 @@ sub tt {
        qq|<tt>| . join(' ', @_) . qq|</tt>|;
 }
 
+sub select {
+       my $name = shift;
+       my $checked_option = shift;
+       return join("\n"        
+               , qq|<select type=select name=$name>|
+               , join("\n", map { my $checked = $_ eq $checked_option ? 'checked' : ''; qq|<option name=$_ $checked>$_</option>| } @_ )
+               , qq|</select>|
+               , qq|</form>|
+       );
+}
+
 warn "loaded";
 
 1;