Diff

/var/www/vhosts/3dshawn.com/site1/test_lwp.pl

deleted on local at 2026-07-11 19:38:02

Added

lines

Removed

-12

lines

Context

unchanged

Blobs

from 279aea43eeb8
to

Unified diff

Naive LCS-based line diff. Additions in emerald, deletions in rose. Both sides decompressed live from BLOB_STORE.

1		#!/usr/bin/perl
2		use strict; use warnings;
3		use LWP::UserAgent;
4		use HTTP::Request;
5		my $ua = LWP::UserAgent->new(timeout => 8);
6		$ua->ssl_opts(verify_hostname => 0);
7		my $req = HTTP::Request->new(POST => 'https://watchtower.3dshawn.com/alert_test_catcher.cgi');
8		$req->header('Content-Type' => 'application/json');
9		$req->content('{"test":1}');
10		my $r = $ua->request($req);
11		print "CODE=", $r->code, " STATUS=", $r->status_line, "\n";
12		print "BODY=", $r->decoded_content, "\n";