Ответ

G_Z 01.07.2016 08:02 / 01.07.2016 08:06

Нет, не работает так.

@main[]
$login[]
$password[]

$url[http://www.parser.ru/forum/]
$session_file[/parser-ru.session]

^if(-f $session_file){
	$session[^table::load[$session_file]]
}{
	$login_response[^curl:load[
		$.url[$url]
		$.post(true)
		$.httppost[
			$.[auth.logon][do]
			$.[auth.name][$login]
			$.[auth.passwd][$password]
		]
		$.cookie[cookie=on]
	]]

	$session[$login_response.cookies]
	^session.save[$session_file]
}

$response[^curl:load[
	$.url[$url]
	$.cookie[^session.menu{$session.name=$session.value}[^;]]
]]

^json:string[$session]
<hr/>
is_logined: ^if(^response.text.pos[<a href="/forum/profile/">$login</a>] > -1)[y;n]