ftp.apnic.net/stats/apnic/delegated-apnic-latest
#!/usr/bin/perl
use strict;
use Image::Magick;
print "Content-type: text/html\n";
print "\n";
my @files = glob "./images/*.png ./images/*.jpg";
foreach (@files){
&MakeThumbnails($_);
}
print '<table border="0" cellspacing="3" cellpadding="3" width=80%><tr>';
my @files = glob "./thumbnails/*.png ./thumbnails/*.jpg";
my $count =0;
foreach (@files){
if($count % 5 <1){
print "</tr><tr>";
}
print "<td><img src=\"";
print $_;
print "\"></td>";
$count++;
}
print '</tr></table>';
sub MakeThumbnails{
my ($name) = @_;
my $dir = './thumbnails';
(my $newname = $name) =~ s/\/images/\/thumbnails/;
my $img = Image::Magick->new;
my $x;
$x = $img->Read($name);
$x = $img->Resize(geometry=>"200x150");
$x = $img->Write($newname);
}
yum install ImageMagick-perl
#!/usr/bin/perl
use CGI;
use CGI::Session;
my $cgi = CGI->new;
my $session = CGI::Session->new(undef, $cgi, {Directory=>'./tmp'});
session->param('name','mysession');
print $session->header(-charset=>'UTF-8');
print $cgi->start_html(-lang=>'ja', -encoding=>'UTF-8', -title=>'http session test'),
$cgi->p('session id: '.$session->id.'<br/>',
'name: '.$session->param('name').'<br/>'),
$cgi->end_html;
Set-Cookie: CGISESSID=5d6b6c1c3248aa9b399060dcef4c4e58; path=/
$ENV{'HTTP_COOKIE'}
at-acbjp session-id session-id-time session-token ubid-acbjp x-acbjp
yum install python-pip python-setuptools
pip-python install sphinx
sphinx-quickstart
DAEMON_OPTIONS(`Port=587,Name=MTA')dnl
F:\Program Files\Java\jdk1.7.0_01\bin
F:\Program Files\Java￥javamail-1.4.4\mail.jar;
F:\Program Files\Java\javamail-1.4.4\demo>java msgshow -T pop3 -H example.com -U hoge -P xxxxxxx
--------------------------
MESSAGE #1:
This is the message envelope
---------------------------
FROM: John Lennon <john@example.com>
REPLY TO: John Lennon <john@example.com>
TO: hoge@example.com
SUBJECT: test
SendDate: Mon Oct 24 16:10:05 JST 2011
FLAGS:
X-Mailer NOT available
F:\Program Files\Java\javamail-1.4.4\demo>
if (port != null)
props.put("mail.smtp.port", port);
Premature end of script headersと書いてある。 改行コードがCRLFになっているとこうなるそうだ。 改行コードを確認するには、
od -c test.cgiとやると、改行コードが\nとか\r\nとか表示される。 \r\nになっていた場合は、以下のようにして変換する。
$ tr -d \\r <windows.txt >unix.txtsendmail
m4 /etc/mail/sendmail.mc > /etc/mail/sendmail.cfsendmail.mc なら、なんとなく何をしているのかが想像がつく。そして sendmail.mcだが、コメントの書き方がちょっと変わっていて、行頭に dnl と書く。行末にもdnlがついているところがあるが、これはあってもなくてもいいようだ。
dnl # dnl DAEMON_OPTIONS(`Port=smtp,Addr=127.0.0.1, Name=MTA')dnl dnl # dnl # dnl # Also accept email sent to "localhost.localdomain" as local email. dnl # LOCAL_DOMAIN(`hoge.net')dnl dnl #今例示した下記の設定は、メール転送をローカルに限るという設定なので、外部からのメールを受信する場合はコメントアウトする。
DAEMON_OPTIONS(`Port=smtp,Addr=127.0.0.1, Name=MTA')さて、外部からのメールの受信であるが、実はまだうまくいっていない。いろんなアカウントを作るときにメールアドレスが必要になることがあり、VPSを持っていれば実質無制限にアカウントを作れるのだが、メールが受信できなきゃしょうがないな・・・
[root@wwwXXXXXu ~]# sendmail -d0.1 -bt < /dev/null Version 8.13.8 Compiled with: DNSMAP HESIOD HES_GETMAILHOST LDAPMAP LOG MAP_REGEX MATCHGECOS MILTER MIME7TO8 MIME8TO7 NAMED_BIND NETINET NETINET6 NETUNIX NEWDB NIS PIPELINING SASLv2 SCANF SOCKETMAP STARTTLS TCPWRAPPERS USERDB USE_LDAP_INIT ============ SYSTEM IDENTITY (after readcf) ============ (short domain name) $w = wwwXXXXXu (canonical domain name) $j = wwwXXXXXu.sakura.ne.jp (subdomain name) $m = sakura.ne.jp (node name) $k = wwwXXXXXu.sakura.ne.jp ======================================================== ADDRESS TEST MODE (ruleset 3 NOT automatically invoked) Enter <ruleset> <address>多分これが原因じゃないかと思う。wwwXXXXXu というのはVPSサーバに与えられるfqdnで、これを変えて使っている。sendmail.mc にドメイン名を設定したのだが、このコマンドに反映しない。このコマンドのオプションの意味はよくわからない。後で調べる。
Oct 21 17:32:58 wwwXXXXXu sendmail[9748]: p9L8WtBO009748: from=<hoge@gmail.com>, size=1182, class=0, nrcpts=1, msgid=xxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxx-cueQtTA@mail.gmail.com>, proto=ESMTP, daemon=MTA, relay=mail-bw0-f50.google.com [209.85.214.50]
Oct 21 17:32:58 wwwXXXXXu sendmail[9749]: p9L8WtBO009748: to=<hoge@example.com>, delay=00:00:00, xdelay=00:00:00, mailer=local, pri=314
56, dsn=2.0.0, stat=Sent
これは、ホスト名を逆引きして表示しているようである。 WEBブラウザで操作する「VPSのコントロールパネル」でホスト名を変更したら反映した。 このときに正引き登録が必要なので、新しくホスト名を付けた。 普段はホスト名なしでアクセスしていたのだが多分、名前は必要なんだよね？ ついでに、 /etc/hosts, /etc/sysconfig/network にも設定する。 いらなかったかな？ 再起動したら、コマンドプロンプトも変わった。 mail -u hogeでhogeのメールを見る。
echo test|mail rootでrootに"test"という文字列を送る。
yum install dovecot設定ファイルは特にいじらずに起動する。
service dovecot startoutlook expressで受信してみるがダメ。 telnet xxxx 110 でも入れない。 ping xxxx はいける。
service dovecot statusを見てみたら停止していた。 /var/log/maillog を見ると、
Oct 21 22:27:43 tal dovecot: auth(default): Unknown authentication mechanism 'dram-md5'
とあるので、設定ファイル /etc/dovecot.conf で dram-md5 と書いてあるところを探して、消して、再起動。 受信できた。こっちは簡単。 というか、sendmailもたいしたことはなかった。 でも、dnsとかiptablesとか、ある程度知ってないとワケがわからないかも。
#! /usr/bin/perl
use strict;
use URI::Escape;
use Encode;
use DateTime;
use utf8;
my @line;
my @line2;
my @line3;
my $useragent;
my $unescaped;
my $print_level = 2;
sub print_selected{
my ($date, $time, $host, $addr, $search_engine,
$search_string,$useragent,$browser,$misc)=@_;
print '<font face="georgia" size=-2><br></font>';
print '<b>'.$search_string.'</b><br>';
print '<font face="georgia" size=-2>';
if($search_engine=~ /Google/){
print ' <font color="navy"><b>'.$search_engine.'</b></font>';
}elsif($search_engine=~ /Yahoo/){
print ' <font color="red"><b>'.$search_engine.'</b></font>';
}elsif($search_engine=~ /Baidu/){
print ' <font color="orange"><b>'.$search_engine.'</b></font>';
}else{
print ' <font color="black"><b>'.$search_engine.'</b></font>';
}
$time =~ s/\[//g;
print '<br><br></font>'."\n";
}
my $date = DateTime->now( time_zone => 'Asia/Tokyo' )->subtract(days=>1);
my $logfilename;
if($#ARGV >=0){
my $test='cp ../../log/access_log_'.$ARGV[0].'.gz ../../log/tmp';
system($test);
$test='gunzip -f ../../log/tmp/*.gz';
system($test);
$test='mv ../../log/tmp/access_log_'.$ARGV[0].' ../../log/tmp/log.txt';
system($test);
$logfilename='../../log/tmp/log.txt';
}else{
$logfilename='log.txt';
}
print "Content-type: text/html\n\n";
print "<html><head>\n";
print '<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">';
print "<title>Searched Strings</title>\n";
print '
<style type="text/css">
<!--
BODY, TH, TD { font-family: "Osaka"; }
-->
</style>
'."\n";
print "</head>\n";
print "<body>\n";
#print "<a href=\"$logfilename\">$logfilename<\/a> ";
#print "<br>print level:".$print_level."<br>";
print "<blockquote>\n";
open LOG,"<$logfilename" or die;
while(<LOG>){
if(/googlebot\.com|Baiduspider/){
if ($print_level > 1) {
next;
}
}else{
print "<br>";
}
print '<font face="georgia" size=-2>';
print;
print '</font>';
@line=split;
if(/.+(\(.+\))/){
$useragent=$1;
}
if(/google/){
@line2 = split /&q=|\?q=/, $_;
@line3 = split /&/, $line2[1];
$unescaped = uri_unescape($line3[0]);
if($_ =~ /ie=SJIS/){
$unescaped = Encode::decode('shiftjis',$unescaped);
}
$unescaped =~ s/\+/ /g;
&print_selected(@line[0],@line[1],@line[2],@line[3],
"Google",$unescaped,$useragent);
}elsif(/yahoo.+search\?/){
@line2 = split /p=/, $_;
@line3 = split /&/, $line2[1];
$unescaped = uri_unescape($line3[0]);
$unescaped =~ s/\+/ /g;
&print_selected(@line[0],@line[1],@line[2],@line[3],
"Yahoo",$unescaped,$useragent);
}elsif(/yahoofs.+search/){
@line2 = split /p=/, $_;
@line3 = split /&/, $line2[1];
$unescaped = uri_unescape($line3[0]);
$unescaped =~ s/\+/ /g;
&print_selected(@line[0],@line[1],@line[2],@line[3],
"Yahoofs",$unescaped,$useragent);
}elsif(/baidu.jp\/s\?/){
@line2 = split /wd=/, $_;
@line3 = split /&/, $line2[1];
$unescaped = uri_unescape($line3[0]);
$unescaped =~ s/\+/ /g;
&print_selected(@line[0],@line[1],@line[2],@line[3],
"Baidu",$unescaped,$useragent);
}elsif(/bing.+search/){
@line2 = split /q=/, $_;
@line3 = split /&/, $line2[1];
$unescaped = uri_unescape($line3[0]);
$unescaped =~ s/\+/ /g;
&print_selected(@line[0],@line[1],@line[2],@line[3],
"bing",$unescaped,$useragent);
}elsif(/biglobe.+search/){
@line2 = split /q=/, $_;
@line3 = split /&/, $line2[1];
$unescaped = uri_unescape($line3[0]);
$unescaped =~ s/\+/ /g;
&print_selected(@line[0],@line[1],@line[2],@line[3],
"biglobe",$unescaped,$useragent);
}elsif(/search\.goo\.ne\.jp/){
@line2 = split /MT=/, $_;
@line3 = split /&/, $line2[1];
$unescaped = uri_unescape($line3[0]);
Encode::from_to($unescaped, 'euc-jp','utf8');
$unescaped =~ s/\+/ /g;
&print_selected(@line[0],@line[1],@line[2],@line[3],
"goo",$unescaped,$useragent);
}else{
print "<br>\n";
}
}
close(LOG);
print "</blockquote></body></html>\n";
検索エンジンごとに個別にやっているところは、本当はまとめてしまいたいところなのだが、とりあえずはこれで。 これでもずいぶんすっきりした。 &ie=SJIS&oe=SJISというパラメータがついている。どういう場合にこうなるのかわからないが、あまりないので、この文字列があったら shift-jisをデコードするようにした。 最初は from_to で shiftjis から utf8 に変換したのだがなぜかうまくいかないので decode を使った。 Encodeの動作がイマイチよくわからない・・・
open FILE,">filename.txt";
print '<link href="../../css/bbz.css" type="text/css" rel="stylesheet">'; print '<link media="only screen and (max-device-width:480px)" href="/css/bbziphone.css" type="text/css" rel="stylesheet"/>'; print '<meta name="viewport" content="width=320, initial-scale=1.0, maximum-scale=1.0, user-scalable=no /">';
@array = split /http/,$string;