use Data::Dumper;
use Email::MIME;
use Mail::POP3Client;
my $pop = new Mail::POP3Client(
USER => "user",
PASSWORD => "password",
HOST => "host",
);
my @ret = ();
for my $n (1..$pop->Count) {
my %r = ();
my $parsed = new Email::MIME(scalar $pop->Retrieve($n));
$r{header} = { $parsed->header_pairs };
$r{body} = $parsed->body;
push @ret, \%r;
}
warn Dumper \@ret;
$pop->Close;
# sudo apt-get install kvm debootstrap vde2 kvm-source kernel-package vde2-cryptcab qemu virt-manager
# virt-manager
# echo 1 > /proc/sys/net/ipv4/ip_forward
# vi /etc/sysctl.conf
net.ipv4.ip_forward=1
# sysctl -w
# iptables-save > iptables.dat
# vi iptables.dat
# Generated by iptables-save v1.4.2 on Wed May 20 13:14:35 2009
*nat
:PREROUTING ACCEPT [99084:10385577]
:POSTROUTING ACCEPT [63345:5039716]
:OUTPUT ACCEPT [62988:5016412]
-A POSTROUTING -s 192.168.255.0/25 -d ! 192.168.255.0/25 -j MASQUERADE
COMMIT
# Completed on Wed May 20 13:14:35 2009
# Generated by iptables-save v1.4.2 on Wed May 20 13:14:35 2009
*filter
:INPUT ACCEPT [4243377:3157025655]
:FORWARD ACCEPT [1872:140778]
:OUTPUT ACCEPT [2985228:715624173]
-A INPUT -i virbr0 -p udp -m udp --dport 53 -j ACCEPT
-A INPUT -i virbr0 -p tcp -m tcp --dport 53 -j ACCEPT
-A INPUT -i virbr0 -p udp -m udp --dport 67 -j ACCEPT
-A INPUT -i virbr0 -p tcp -m tcp --dport 67 -j ACCEPT
-A FORWARD -d 192.168.255.0/25 -o virbr0 -m state --state RELATED,ESTABLISHED -j ACCEPT
-A FORWARD -s 192.168.255.0/25 -i virbr0 -j ACCEPT
-A FORWARD -i virbr0 -o virbr0 -j ACCEPT
-A FORWARD -o virbr0 -j REJECT --reject-with icmp-port-unreachable
-A FORWARD -i virbr0 -j REJECT --reject-with icmp-port-unreachable
COMMIT
# Completed on Wed May 20 13:14:35 2009
-A FORWARD -o virbr0 -j REJECT --reject-with icmp-port-unreachable
-A FORWARD -i virbr0 -j REJECT --reject-with icmp-port-unreachable
# iptables-restore < iptables.dat
#!/bin/sh
# 国名
COUNTRY_NAME="JP"
# 都道府県名
STATE_OR_PROVINCE_NAME="Tokyo"
# 市区町村
LOCATION_NAME=""
# 法人名
ORGNAIZATION_NAME=" Co. Ltd."
# 部署
ORGNAIZATION_UNIT=""
# ドメイン名
COMMON_NAME=""
# 連絡先メールアドレス
EMAIL_ADDRESS=""
openssl req -x509 -nodes -days 3650 \
-subj "/C=$COUNTRY_NAME/ST=$STATE_OR_PROVINCE_NAME/L=$LOCATION_NAME/O=$ORGNAIZATION_NAME/OU=$ORGNAIZATION_UNIT/CN=$COMMON_NAME/emailAddress=$EMAIL_ADDRESS" \
-newkey rsa:1024 -keyout $COMMON_NAME.key -out $COMMON_NAME.crt
