Вот значится что у меня есть:
файлик menu.pl
---------------
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
#starting to comparing files...
if($vHandle ne $pHandle)
{
#menu was modified...
print "<form action=menu.pl method=get>\n" ;
print "<font color=red>меню было изменено.<br>\n";
#printing modify date of the file
use File::stat;
my $sb = stat($pPath);
printf " %s\n",
scalar localtime $sb->mtime;
#copy button
print '<input type=submit name=copy value=copy>';
print "<input type=hidden name=update_id value=$Data{'id'}>";
print "<input type=hidden name=pPath value=$pPath>";
print "<input type=hidden name=vPath value=$vPath></form>";
#view buttton
print "<form action=view.pl target=_blank method=post>\n" ;
print '<input type=submit name=view value=view>';
print "<input type=hidden name=view_id value=$Data{'id'}>";
print '</font></form>';
}
С этим проблем нет, сравниваем файлы, если они не равны, то выводим 2 кнопки: 1- за то чтобы эти файлы уровнять простым копированием, 2- чтобы посмотреть какие изменения были внесены в файл.
файлик view.pl
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
use Win32::ODBC ;
use CGI ;
use File::Copy;
require HTTP::Request;
use LWP::UserAgent;
use LWP;
use HTTP::Headers;
use HTTP::Request;
$q = new CGI ;
#connecting to sql server -> to database----------------------------------------------------------------#
$DSN = 'SERVER=developer;DRIVER={SQL Server};DATABASE=alb;' ;
if (!($O = new Win32::ODBC($DSN))){
print "Failure. \n\n";
print Win32::ODBC::Error();
exit();
}
$view_id = $q->param("view_id") ;
$view_id =~ s/\D//g ;
if ( $q->param("view") ne "" and $view_id ne "" ){
if (! $O->Sql("select * from menu where id=".$q->param("view_id"))){
$O->FetchRow() ;
%Data = $O->DataHash();
my $url = "$Data{'url'}";
my $menu = "$Data{'menu'}";
my $s_url = "$Data{'s_url'}";
my $url_menu = "$Data{'url_menu'}";
print "<b><a href=menu.pl>Назад</a><br></b>";
my $ua=LWP::UserAgent->new();
my $heads=HTTP::Headers->new();
#$heads->authorization_basic("login","passwd");
my $url="https://www.axion.com/WORK/OUP/OUP.HTM";
my $document=$ua->request(HTTP::Request->new(GET=>$url, $heads));
if($document->is_success) {
print $document->content;
}
# my $ua = LWP::UserAgent->new;
# my $heads = HTTP::Headers->new;
# $heads->authorization_basic("saa12838","alberts");
# my $request = HTTP::Request->new(GET => "$url", $heads->as_string());
# my $request = HTTP::Request->new(GET => "$url");
# my $response = $heads->request($request);
open FP, ">html_file" ;
print FP $response->content;
close FP ;
print `fc $Data{s_url} html_file` ;
}}
#}}
print "</body></html>";
из этого уже все перепробывал, и разные переменные подставлял. все равно авторизироваться не хочет(((
как сделать чтобы все работало?
