Commit 8071f0d8 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Fix the password escape for the ssh to ops.

parent cc8f655d
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# EMULAB-COPYRIGHT # EMULAB-COPYRIGHT
# Copyright (c) 2005, 2006, 2007 University of Utah and the Flux Group. # Copyright (c) 2005, 2006, 2007, 2008 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
use English; use English;
...@@ -253,6 +253,7 @@ if ($CONTROL ne $BOSSNODE) { ...@@ -253,6 +253,7 @@ if ($CONTROL ne $BOSSNODE) {
# shell escape. # shell escape.
$usr_pswd =~ s/\$/\\\$/g; $usr_pswd =~ s/\$/\\\$/g;
$usr_pswd =~ s/\*/\\\*/g;
if (system("$SSH -host $CONTROL $WIKIPROXY ". if (system("$SSH -host $CONTROL $WIKIPROXY ".
" $optarg adduser $user $wikiname '$usr_pswd'")) { " $optarg adduser $user $wikiname '$usr_pswd'")) {
......
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