通过web界面查询svn更新　

2015/12/14 42587

清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>> 

use 5.01;
use Mojolicious::Lite;
　
   get '/update' => sub {
     my $self = shift;
	 my $resp=`svn up` ;
	 say $resp;
	 
	 $self->res->headers->header('Content-Type' => 'text/html;charset=utf8');
	 $self->render('baz', resp=>$resp);
　
   };
  
   
   app->start; 
#  morbo myapp.pl   

__DATA__

@@ baz.html.ep
<html><head><meta http-equiv="Content-type" content="text/html; charset=utf8" /></head>
<body>
  
  <%= $resp %>