From 09717d3fc82a858620026538600c311a851dfe14 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Mon, 29 Nov 2004 12:09:05 +0000
Subject: utility to base encode data passed on stdin

---
 tests/server/base64.pl | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 tests/server/base64.pl

(limited to 'tests/server/base64.pl')

diff --git a/tests/server/base64.pl b/tests/server/base64.pl
new file mode 100644
index 000000000..2eab1fa4d
--- /dev/null
+++ b/tests/server/base64.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+use MIME::Base64 qw(encode_base64);
+
+my $buf;
+while(read(STDIN, $buf, 60*57)) {
+    my $enc = encode_base64($buf);
+    print "$enc";
+}
-- 
cgit v1.2.3