open(SEND, '/usr/sbin/sendmail') || die;
use Net::SMTP; use MIME::Entity;
#!/usr/bin/perl
use Net::SMTP;
use MIME::Entity;
# Settings
our $SENDER = '送信元のメールアドレス';
our $RECIPIENT = '送信先のメールアドレス';
our $SUBJECT = 'タイトル';
our $ATTACHED_FILE_1 = '/home/youraccount/添付ファイル名その1.jpg';
our $ATTACHED_FILE_2 = '/home/youraccount/添付ファイル名その2.jpg';
# Create object
my $smtp=Net::SMTP->new('localhost',
HELLO=>'yourmailsever.yourdomain.com');
# Built headers
$smtp->mail($SENDER); # Sender
$smtp->to ($RECIPIENT); # Receiver
# Built Data (Create data by MIME::Entity)
$smtp->data();
my $mime = MIME::Entity->build(
From => $SENDER , # Sender (data)
To => $RECIPIENT, # Receiver (data)
Subject => $SUBJECT , # Subject
Data => ['']); # body
# Attached file
$mime->attach(
Path => $ATTACHED_FILE_1,
Type => 'image/jpeg',
Encoding => 'Base64'
);
# Attached file
$mime->attach(
Path => $ATTACHED_FILE_2,
Type => 'image/jpeg',
Encoding => 'Base64'
);
# Attached file (Text)
# $mime->attach(
# Path => $ATTACHED_FILE,
# Type => 'text/plain',
# Encoding => '-SUGGEST'
#);
$smtp->datasend($mime->stringify); # transfer strings
# Data termination and send mail
$smtp->dataend();
#Quit SMTP connection
$smtp->quit;
# for debug
print "Sender : $SENDER\n";
print "Recipient : $RECIPIENT\n";
print "Attached : $ATTACHED_FILE\n";
1;
open(SEND, '/usr/sbin/sendmail') || die;
use Net::SMTP; use MIME::Entity;
#!/usr/bin/perl
use Net::SMTP;
use MIME::Entity;
# Settings
our $SENDER = '送信元のメールアドレス';
our $RECIPIENT = '送信先のメールアドレス';
our $SUBJECT = 'タイトル';
our $ATTACHED_FILE_1 = '/home/youraccount/添付ファイル名その1.jpg';
our $ATTACHED_FILE_2 = '/home/youraccount/添付ファイル名その2.jpg';
# Create object
my $smtp=Net::SMTP->new('localhost',
HELLO=>'yourmailsever.yourdomain.com');
# Built headers
$smtp->mail($SENDER); # Sender
$smtp->to ($RECIPIENT); # Receiver
# Built Data (Create data by MIME::Entity)
$smtp->data();
my $mime = MIME::Entity->build(
From => $SENDER , # Sender (data)
To => $RECIPIENT, # Receiver (data)
Subject => $SUBJECT , # Subject
Data => ['']); # body
# Attached file
$mime->attach(
Path => $ATTACHED_FILE_1,
Type => 'image/jpeg',
Encoding => 'Base64'
);
# Attached file
$mime->attach(
Path => $ATTACHED_FILE_2,
Type => 'image/jpeg',
Encoding => 'Base64'
);
# Attached file (Text)
# $mime->attach(
# Path => $ATTACHED_FILE,
# Type => 'text/plain',
# Encoding => '-SUGGEST'
#);
$smtp->datasend($mime->stringify); # transfer strings
# Data termination and send mail
$smtp->dataend();
#Quit SMTP connection
$smtp->quit;
# for debug
print "Sender : $SENDER\n";
print "Recipient : $RECIPIENT\n";
print "Attached : $ATTACHED_FILE\n";
1;
あなたのブラログの XML サイトマップを Google や他の検索エンジンに解析してもらうのは とっても簡単。新しいインデックステンプレートを作成して以下のコードをコピーすればよい。 出力ファイルは sitemap.xml のような覚えやすい名前をつけておこう。 そのコードを貼り付けて新しいテンプレートファイルを保存してサイトを再構築すればよい。以下は、Niall Kennedy's Weblog で提示されている方法に加えて、私の方でカテゴリの URL をサイトマップに加えるように手を加えた sitemap.xml の例である。
<?xml version="1.0" encoding="UTF-8"?>
<urlset xmlns="https://www.google.com/schemas/sitemap/0.84">
<url>
<loc><$MTBlogURL encode_xml="1"$></loc>
<priority>1.0</priority>
</url>
<MTEntries lastn="9999">
<url>
<loc><$MTEntryPermalink encode_xml="1"$></loc>
<lastmod><$MTEntryModifiedDate utc="1" format="%Y-%m-%dT%H:%M:%SZ"$></lastmod>
</url>
</MTEntries>
<font color="blue"><MTCategories><MTIfNonZero tag="MTCategoryCount">
<url><loc><$MTCategoryArchiveLink encode_xml="1"$></loc></url>
</MTIfNonZero></MTCategories></font>
</urlset>
あなたのブラログの XML サイトマップを Google や他の検索エンジンに解析してもらうのは とっても簡単。新しいインデックステンプレートを作成して以下のコードをコピーすればよい。 出力ファイルは sitemap.xml のような覚えやすい名前をつけておこう。 そのコードを貼り付けて新しいテンプレートファイルを保存してサイトを再構築すればよい。以下は、Niall Kennedy's Weblog で提示されている方法に加えて、私の方でカテゴリの URL をサイトマップに加えるように手を加えた sitemap.xml の例である。
<?xml version="1.0" encoding="UTF-8"?>
<urlset xmlns="https://www.google.com/schemas/sitemap/0.84">
<url>
<loc><$MTBlogURL encode_xml="1"$></loc>
<priority>1.0</priority>
</url>
<MTEntries lastn="9999">
<url>
<loc><$MTEntryPermalink encode_xml="1"$></loc>
<lastmod><$MTEntryModifiedDate utc="1" format="%Y-%m-%dT%H:%M:%SZ"$></lastmod>
</url>
</MTEntries>
<font color="blue"><MTCategories><MTIfNonZero tag="MTCategoryCount">
<url><loc><$MTCategoryArchiveLink encode_xml="1"$></loc></url>
</MTIfNonZero></MTCategories></font>
</urlset>
<$MTEntryDate format="%Y/%m/%d"$>
<$MTEntryDate format="%Y/%m/%d"$>
<a href="<$MTEntryPermalink$>">Permalink</a>
<$MTEntryPermalink$>となっている部分 (タグ) が、Permalink を表わす。 このエントリーの最後にも Permalink というリンクがあるはずなので、参考にして欲しい。このリンクはこのエントリーを更新しても変化しないものなので、他のウェブサイトからこのエントリがリンクされていても、リンク切れということがなくなる。Permalink とは、ウェブページの内容を更新しても変わらない URL のことである。 Movable Type で、Permalink を表示するには、テンプレートに以下のコードを埋め込むとよい。
<a href="<$MTEntryPermalink$>">Permalink</a>
<$MTEntryPermalink$>となっている部分 (タグ) が、Permalink を表わす。 このエントリーの最後にも Permalink というリンクがあるはずなので、参考にして欲しい。このリンクはこのエントリーを更新しても変化しないものなので、他のウェブサイトからこのエントリがリンクされていても、リンク切れということがなくなる。