Windows/Strawberry Perl环境下ClickBank IPN消息拦截转发至不可修改第三方脚本的技术实现问题

核心问题分析 #

你遇到的核心卡点在于：Windows环境下Perl的fork是模拟实现的，子进程无法直接继承父进程已读取的STDIN数据；而用require调用原始脚本时，STDIN的文件指针已经被父脚本移动过，原始脚本无法再捕获完整的IPN数据。另外，你之前只读取了STDIN的一行（my $message=<STDIN>），但ClickBank的IPN POST数据是完整的表单内容，需要读取全部输入才能保证数据不丢失。

解决方案步骤 #

1. 正确捕获完整的STDIN数据

首先要取消Perl默认的输入记录分隔符，一次性读取全部STDIN内容：

local $/; # 取消换行符作为读取结束标记
my $ipn_data = <STDIN>;

2. 用管道重定向传递数据给原始脚本

在Windows下，推荐使用IPC::Open2模块创建子进程，并将捕获的IPN数据写入子进程的STDIN，让原始脚本以为数据是直接来自ClickBank的请求。

3. 服务器在线检测与备用服务器逻辑

• 先通过健康检查请求判断原服务器是否在线
• 在线则直接转发数据给原始脚本
• 不在线则将数据提交到备用服务器存储，待原服务器恢复后再批量推送

完整替换脚本示例 #

#! "C:/Strawberry/perl/bin/perl.exe"
use strict;
use warnings;
use LWP::UserAgent;
use IPC::Open2;
use IO::Handle;

# 配置参数
my $ORIGINAL_SCRIPT = "./original.pl";
my $HEALTH_CHECK_URL = "http://XXXXX.YYY/health-check"; # 原服务器健康检查地址（比如返回200的简单脚本）
my $BACKUP_SERVER_URL = "http://backup-server.example.com/save-ipn";

# 先输出HTTP头（必须在任何内容输出前发送）
print "Content-Type: text/html\n\n";

# 1. 捕获完整的IPN数据
local $/;
my $ipn_data = <STDIN>;
die "No IPN data received" unless $ipn_data;

# 2. 检测原服务器是否在线
my $ua = LWP::UserAgent->new(timeout => 10);
$ua->env_proxy;
my $health_response = $ua->get($HEALTH_CHECK_URL);

if ($health_response->is_success) {
    # 3. 原服务器在线，转发数据给原始脚本
    # 使用IPC::Open2创建子进程，重定向STDIN/STDOUT
    my ($child_out, $child_in);
    my $pid = open2($child_out, $child_in, "perl", $ORIGINAL_SCRIPT);
    
    # 将IPN数据写入子进程的STDIN
    print $child_in $ipn_data;
    close $child_in; # 关闭输入，让原始脚本知道数据已传输完毕
    
    # 读取并输出原始脚本的响应（可选，根据需求是否返回给ClickBank）
    local $/;
    my $original_response = <$child_out>;
    print $original_response;
    
    waitpid($pid, 0); # 等待子进程执行结束
} else {
    # 4. 原服务器离线，将数据发送到备用服务器
    my $backup_response = $ua->post(
        $BACKUP_SERVER_URL,
        Content => $ipn_data,
        Content_Type => 'application/x-www-form-urlencoded' # 匹配ClickBank的POST格式
    );
    
    if ($backup_response->is_success) {
        print "IPN data saved to backup server successfully";
    } else {
        print "Failed to save to backup server: " . $backup_response->status_line;
    }
}

print "\nReplacement script execution completed";

原始脚本调整注意事项 #

确保原始脚本也读取全部STDIN数据，避免只读取单行导致数据丢失：

#! "C:/Strawberry/perl/bin/perl.exe"
use strict;
use warnings;

local $/;
my $message = <STDIN>;

print "Content-Type: text/html\n\n";
print "This is the original script - received IPN data:\n";
print "<pre>$message</pre>";

为什么之前的方案失效？ #

• require：原始脚本在当前进程运行，STDIN的文件指针已经被父脚本读取过，无法再获取完整数据；
• fork（Windows）：Windows Perl的fork是用线程模拟的，子进程不会继承父进程已读取的STDIN缓冲区，必须手动传递数据；
• 单行读取：my $message=<STDIN>只读取第一行，而ClickBank的IPN是完整的POST表单数据，会丢失关键内容。

备用服务器恢复逻辑 #

备用服务器需要存储IPN数据（比如用数据库或本地文件），当原服务器恢复后，可以编写简单脚本批量推送数据：

# 备用服务器推送脚本示例
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;

# 从存储中读取所有未推送的IPN数据（需根据备用服务器存储方式调整）
my @pending_ipns = get_pending_ipns(); 

foreach my $ipn_data (@pending_ipns) {
    my $response = $ua->post(
        "http://original-server.example.com/cgi-bin/original.pl",
        Content => $ipn_data,
        Content_Type => 'application/x-www-form-urlencoded'
    );
    
    if ($response->is_success) {
        mark_ipn_as_sent($ipn_data); # 标记为已推送
    }
}

内容的提问来源于stack exchange，提问作者Cristofayre