move_cam.pl

来自「This program is distributed in the hope 」· PL 代码 · 共 38 行

#!/usr/bin/perl

#
# Copyright (c) 2003, Tony Cureington
# This is Free Software with ABSOLUTELY NO WARRANTY. You are welcome to
# redistribute it under the terms of the GNU General Public License, see the
# file COPYING for details.
#

use CGI ':standard';

$command='./cam_control ' . param('cam_params');
$rc = system($command);

##################################################
# below is for debugging
# you MUST create the "junk" file and chmod +w it
# so it can be written to by this script.                   
##################################################
# $command='echo ' . '"' . param('cam_params') . '"' . ' >>junk';
# $rc = system("echo debugging>>junk");
# $rc = system($command);

# $command='echo ' . '"' . param('cam_params') . '"' . ' >>junk';
# print header;
# print start_html("DEBUG");
# print '<h1> command =',$command,' </h1>';
# $rc = system("echo debugging>>junk");
# $rc = system($command);
# print end_html();


#
# put the below in a file and call it to dump the parameters
# for testing the arguments being passed to cam_control from the web interface
#
# echo args=$@ >>junk