apache2ctl -V | g MPMapt-get install apache2-threaded-devwget http://modntlm.sourceforge.net/mod_ntlm2.tar.gzMakefile APXS=apxs2mod_ntlm.c /* apr_pool_sub_make(&sp,p,NULL); */ apr_pool_create_ex(&sp,p,NULL,NULL);makemake installcp .lib/*.so 〜
apt-get install libapache2-mod-perl2cpan install Apache2::AuthenNTLM/etc/hostsping local_hostnameping PDC_hostname.htaccess PerlAuthenHandler Apache2::AuthenNTLM PerlAddVar ntdomain "DOM SV1 SV2" PerlSetVar splitdomainprefix 1 PerlSetVar ntlmdebug 1 PerlSetVar ntlmauthoritative on PerlSetVar defaultdomain DOM # AuthType ntlm,basic AuthType ntlm AuthName "Dobutsu Area" require valid-user
use WWW::Mechanize;my $agent = "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)";my $mech = WWW::Mechanize->new(agent=>$agent);$mech->get( $url );$mech->set_visible( $user, $pass ) ;$mech->click( "Login_button" , 0 , 0 );$mech->submit_form(form_name => "form2",fields=>{"mail" => "neko@neko.com"});my $html = $mech->content;$html =~ s/$str/$str\n
/;$mech->update_html( $html );$mech->submit_form(form_name => "form3",fields=>{"comment" => "nekoneko-"});$mech->back();$mech->reload();