body<=
"; }; use strict; use vars qw(%POST %GET); return LJ::server_down_html() if $LJ::SERVER_DOWN; my $remote = LJ::get_remote(); return LJ::bad_input("You must be logged in to access import page.") unless $remote; my $authas = $GET{'authas'} || $remote->{'user'}; my $u = LJ::get_authas_user($authas); return LJ::bad_input("You could not be authenticated as the specified user.") unless $u; my $iremote = $remote->{'user'}; return $LJ::MSG_READONLY_USER if $u->readonly; my $ret; my $dbr; $ret = "{'user'} . " h1?>\n
"; $ret .= "

"; $ret .= ""; $ret .= "

"; $ret .= "
\n
"; $dbr = LJ::get_db_reader(); if (!$dbr) { $ret .= $err->("Can't get database reader!"); } my $sth1 = $dbr->prepare("SELECT * FROM ljr_iqueue WHERE local_user='$iremote'"); $sth1->execute(); $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; while (my $r = $sth1->fetchrow_hashref) { $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; } $ret .= "

Номер заявки	Исходный сервер	Пользователь на исходном сервере	Протокол	Пользователь LJ.Rossia.org
" . $r->{importid} . "	" . $r->{remote_site} . "	" . $r->{remote_user} . "	" . $r->{remote_protocol} . "	" . $r->{local_user} . "

"; $ret .= "
Вы можете добавить новую заявку на импорт здесь.

"; $ret .= "
\n
"; my $sth1 = $dbr->prepare("SELECT * FROM ljr_ihistory WHERE local_user='$iremote' order by local_user, importid desc"); $sth1->execute(); $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; while (my $r = $sth1->fetchrow_hashref) { $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; } $ret .= "

Номер	Исходный сервер	Пользователь на исходном сервере	Протокол	Пользователь LJ.Rossia.org	Дата и время изменения статуса заявки	Статус заявки
" . $r->{importid} . "	" . $r->{remote_site} . "	" . $r->{remote_user} . "	" . $r->{remote_protocol} . "	" . $r->{local_user} . "	" . $r->{idate} . "	" . $r->{istatus} . "

"; return $ret; } _code?> <=body page?>