reneeb/test.pl

## test.pl
#!/usr/bin/perl

use v5.24;

use strict;
use warnings;

use MIME::Base64;
use Encode;
use LWP::UserAgent;
use JSON;
use Getopt::Long;

GetOptions(
    'host=s' => \my $host,
    'port=s' => \my $port,
    'file=s' => \my $file,
);

$host ||= 'localhost';
$port ||= 8090;

my $url = sprintf "http://%s:%s", $host, $port;

my $html = do { local $/; <DATA> };
if ( $file ) {
    $html = do { local (@ARGV, $/) = $file; <> };
}

my $base64 = MIME::Base64::encode_base64(
    encode_utf8( $html )
);

my $JSON = JSON->new->utf8(1)->encode(
    { data => $base64 }
);

my $ua   = LWP::UserAgent->new;
my $tx   = $ua->post(
    $url || 'http://localhost:8090',
    Content => $JSON,
);

die "Request nicht erfolgreich!" if !$tx->is_success;

my $pdf = $tx->decoded_content;
open my $fh, '>', 'response_test.pdf';
print $fh $pdf;
close $fh;

say "PDF erstellt.";


__DATA__
<html>
<body>
<h1>Test</h1>
</body>
</html>
	#!/usr/bin/perl

	use v5.24;

	use strict;
	use warnings;

	use MIME::Base64;
	use Encode;
	use LWP::UserAgent;
	use JSON;
	use Getopt::Long;

	GetOptions(
	'host=s' => \my $host,
	'port=s' => \my $port,
	'file=s' => \my $file,
	);

	$host \|\|= 'localhost';
	$port \|\|= 8090;

	my $url = sprintf "http://%s:%s", $host, $port;

	my $html = do { local $/; <DATA> };
	if ( $file ) {
	$html = do { local (@ARGV, $/) = $file; <> };
	}

	my $base64 = MIME::Base64::encode_base64(
	encode_utf8( $html )
	);

	my $JSON = JSON->new->utf8(1)->encode(
	{ data => $base64 }
	);

	my $ua = LWP::UserAgent->new;
	my $tx = $ua->post(
	$url \|\| 'http://localhost:8090',
	Content => $JSON,
	);

	die "Request nicht erfolgreich!" if !$tx->is_success;

	my $pdf = $tx->decoded_content;
	open my $fh, '>', 'response_test.pdf';
	print $fh $pdf;
	close $fh;

	say "PDF erstellt.";


	__DATA__
	<html>
	<body>
	<h1>Test</h1>
	</body>
	</html>