Diff

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

added on local at 2026-07-11 18:56:20

Added

+12

lines

Removed

-0

lines

Context

unchanged

Blobs

from
to 279aea43eeb8

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";