my_script.cgi

来自「SMS SDK classes.This is the archive that」· CGI 代码 · 共 11 行

#!/usr/local/bin/perl

$len = read(STDIN, $text, $ENV{CONTENT_LENGTH});

print "Content-Type: text/plain\n";
print "Content-length: ".(30+$len)."\n\n";

binmode STDOUT;
print "Thank you for your message:\n\n$text\n";