Changeset 12551

Timestamp:

05/27/08 19:56:48 (5 years ago)

Author:

yappo

Message:

最新のコミットし忘れてた

Files:

• websites/perl-users.jp/tools/commit-ping-recever.pl (modified) (3 diffs)

websites/perl-users.jp/tools/commit-ping-recever.pl

@@ -7 +7 @@
 my $news = $ENV{BASEPATH} . '/news.sh';
 my $html = $ENV{BASEPATH} . '/update.sh';
+
+my $base   = $ENV{BASEPATH};
+my $chalow = "$base/perlnews";
 
 my $e = HTTP::Engine->new(
@@ -21 +24 @@
 
 sub request_handler {
+    for my $name (qw/ CHLD STOP TSTP TTIN TTOU /) {
+        $SIG{$name} = sub {  warn "stop: $name" };
+    }
     my $c = shift;
+
     print STDERR sprintf "request: %s\n", $c->req->uri;
     return unless $c->req->param('yaml');
@@ -33 +40 @@
     }
 
-    `$news` if $is_news;
-    `$html` if $is_html;
+    if ($is_html) {
+        system '/usr/bin/svn', 'up', "$base/html";
+    }
+
+    if ($is_news) {
+        system '/usr/bin/svn', 'up', "$base/coderepos";
+        local $ENV{PERL5LIB} = "$chalow:$chalow/lib";
+        system "$chalow/chalow", '-o', "$base/news", '-c', "$base/cl.conf", '-a', "$base/coderepos/news/assets", "$base/coderepos/news/ChangeLog";
+        system "$base/kuttuki-rss-1.2/kuttuki-rss.pl", "$base/news/cl.rdf", '--number=5', '--encode=utf8', "--output=$base/news/rss.js";
+        system "$base/kuttuki-rss-1.2/kuttuki-rss.pl", "http://b.hatena.ne.jp/t/for.perlusers?mode=rss&sort=eid", '--number=5', '--encode=utf8', "--output=$base/news/hateb.js";
+    }
     print STDERR "news: $is_news, html: $is_html\n" if $is_news || $is_html;
 }