徒涉春冰

摘要： 今天开始写跳板机程序，比较了一下，Net:SSH和Net::SSH2等是ssh(1)的wraper，其api非常的不perlish，所以决定使用Net::SSH::Perl这个纯perl实现，结果发现怎么设置用户名和密码都是登陆失败，跟了一下，发现登陆的user都是hume，这才想起我配过~/.ssh/config我还以为Net::SSH::Perl作为纯perl的实现，不会去读~/.ssh/config呢，看来是想当然了 阅读全文

摘要： perl实现，依赖以下CPAN模块：Plack、Starman和Plack::App::GitSmartHttp备注：1），可能要设置：git config http.postBuffer 5242880002），启动脚本：plackup -s Starman -p 5000 /opt/gitserve.psgi -error-log=/opt/gitserve.log --pid=/opt/gitserve.pid -D3），stop: kill -TERM `cat /opt/gitserve.pid，reload: kill -HUP`cat /opt/gitserve.pid4），授权 阅读全文

摘要： #!/usr/bin/env perluse strict;use warnings;use utf8;use diagnostics;use Carp qw(croak carp confess);use LWP::Simple;use Encode qw(decode encode);my $ip = shift @ARGV;my $program_name = $0;my $USAGE = qq{Usage: $program_name <10.11.12.38>};croak $USAGE unless (defined($ip) && is_ip_or_h 阅读全文

摘要： 阅读全文

摘要： svnadmin lslocks /opt/svn/xxsvnadmin rmlocks /opt/svn/xx /docs/~~~ 阅读全文

摘要： 现象：查看页面，发现数据出现异常，今天生成数据比平常水平偏低好多，不大正常原因查找：查看日志文件，发现有出现了几个这样的警告：** WARNING ** Mnesia is overloaded: {dump_log, write_threshold}在查询时发现好多老外遇到这个问题，这儿要说一点，老外在描述问题上很厉害，这儿把它描述的原因copy下来，和我这儿的情况差不多(当然最后他也没得到想要的结果，不过这是另一说，非重点)we encountered the following mnesia warning report in our system log: Mnesia is ove. 阅读全文

摘要： 今天发现一个古老的虚机ssh登陆不了，root密码也没人记得了（早前都是通过key上去的），重启虚机发现sshd配置文件错误，无法启动服务，用key当然上不去了。天下能有什么事难住我们技术宅。放狗搜之，遂解决。主要参考下面这篇文章。Mounting Individual Parititons in RAW Disk ImagesLet us say, for the sake of simplicity, that you backup whole disks by using dd in Linux. Now let us assume that you need just a single 阅读全文

摘要： sh(1) 脚本中，` 和 $() 的作用类似。比如：rm `find /foo/bar -ctime +3d -type f`【注1】表示将 find 的输出结果作为rm的命令行输入。常写 sh(1) 脚本的人可能会用另一个写法：rm $(find /foo/bar -ctime +3d -type f)这个写法和第一种是等价的。不过，$()的好处是可以嵌套。个人比较倾向于使用 ` 而不是 $()，主要有三个原因：1），() 和 {} 在显示时差别很小，容易引起误会；2），复杂到需要嵌套的命令通常是不对的；3），` 可以在 sh 和 [t]csh 中使用，而 $() 只能在 sh 中使用。【 阅读全文

摘要： nginx accesslog 格式定义如下'{"ip":"$remote_addr", "user":"$remote_user", "time":"$time_local", "url":"$request", "status":"$status", "bytes":"$body_bytes_sent", "refer":&q 阅读全文

摘要： Plack::App::GitSmartHttpplackup -s Starman -p 500 git.psgi -D#!/usr/bin/perluse strict;use Plack::App::GitSmartHttp; Plack::App::GitSmartHttp->new( root => '/data/git', upload_pack => 1, # clone received_pack => 1, # push)->to_app;#!/usr/bin/perluse strict;use Plack::Builde... 阅读全文