| Server IP : 176.9.105.210 / Your IP : 216.73.217.21 Web Server : Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips System : Linux server.mediaphic.com 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64 User : freelife ( 1356) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system,show_source,mail,sendmail,popen,symlink,phpinfo MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/bin/ |
Upload File : |
#!/usr/bin/perl -w
=head1 NAME
mimeencode - encode a file
=head1 SYNOPSIS
mimeencode
Give usage.
mimeencode [-d] encoding <infile >outfile
Encode/decode stdin to stdout.
=head1 DESCRIPTION
Encode (or, with -d, decode) stdin with the given encoding,
writing results to stdout.
This does not do MIME parsing; it merely exercises the decoder
modules.
=head1 AUTHOR
Eryq, eryq@zeegee.com
=cut
use lib "./lib";
use strict;
use Getopt::Std;
use vars qw($opt_d);
use MIME::Decoder;
# Usage?
$ARGV[0] or die <<EOF;
Usage:
mimeencode [-d] encoding <infile >outfile
EOF
# Args:
getopts("d");
my $enc = shift @ARGV;
# Get decoder:
my $decoder = new MIME::Decoder $enc or die "unsupported encoding ($enc)\n";
# Do it!
my $action = ($opt_d ? 'decode' : 'encode');
$decoder->$action(\*STDIN, \*STDOUT);
1;