Chinaunix首页 | 论坛 | 博客
  • 博客访问: 582689
  • 博文数量: 111
  • 博客积分: 3478
  • 博客等级: 中校
  • 技术积分: 1327
  • 用 户 组: 普通用户
  • 注册时间: 2009-05-28 22:37
文章分类

全部博文(111)

文章存档

2013年(4)

2012年(57)

2011年(15)

2010年(7)

2009年(28)

分类: LINUX

2012-05-06 18:00:28

#!/usr/bin/perl -w # vim: set cindent expandtab ts=4 sw=4: use CGI::Fast qw(:$DIR); #use vars qw($DIR); BEGIN { if ($ENV{SCRIPT_FILENAME} =~ m!(.*/)cgi!) { $DIR = $1; }else { $DIR = '../'; } unshift @INC, $DIR . 'libs'; #print "content-type: text/html\n\n"; #$SIG{__WARN__} = $SIG{__DIE__} = sub { print @_ }; } use strict; eval { require Ext::MgrApp::Login; my $app = Ext::MgrApp::Login->new( config => $DIR . 'webman.cf', directory => $DIR ); $app->run; }; if ($@) { print "Content-type: text/html\n\n"; print "$@"; }

 

 

http://blog.sina.com.cn/s/blog_659b48590100n2rp.html

阅读(1320) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~