write-testbed.pl

来自「这是广泛使用的通信开源项目,对于大容量,高并发的通讯要求完全能够胜任,他广泛可用」· PL 代码 · 共 50 行

#!/pkg/gnu/bin//perl5
#
#write-testbed.pl,v 1.2 2000/06/04 22:00:03 brunsch Exp
#
# write new values from form to $wd/conf/testbed, and run WebStone
#

push(@INC, "$wd/bin");
require('WebStone-common.pl');

html_begin("Current Configuration");

&show_model();
&write_data();

print CLIENT <<EOF
<HR>
<FORM METHOD="POST" ACTION="$wd/bin/runbench.pl">
<P><INPUT TYPE="SUBMIT" VALUE="Run WebStone">
</FORM>
</DL>

EOF
    ;

html_end();

# end main

sub write_data {
    rename("$wd/conf/testbed", "$wd/conf/testbed.bak") || 
	die "rename testbed: $!\n";
    open(TESTBED, ">>$wd/conf/testbed") || die "open testbed: $!\n";
    
    print CLIENT "<PRE>";
    
    foreach $key (@keylist) {
	$$key =~ s/\+/ /g;
	$newvalue = "$key=\"$$key\"\n";
	print CLIENT $newvalue;
	print TESTBED $newvalue;
    }

    print CLIENT "</PRE>";

    close(TESTBED);
}

# end