use WWW::Mechanize;
use LWP::UserAgent;
use LWP::Authen::Ntlm;
use Storable;
use DBI;
use FileMoveDMS2DStage_Parm;
use LWP::Debug qw(+);
my $URL_Parm_DMS="https://sharepoint.com";
&Parm_file::InitEnv();#parameter file for credentials#
$mech = WWW::Mechanize->new(autocheck=>1,keep_alive=>1);
$mech->agent_alias( 'Windows IE 6' );
$mech->credentials("sharepoint.com:443",'',$ENV{'UserId_Parm_DMS'}, $E
+NV{'Password_Parm_DMS'});
$mech->get($URL_Parm_DMS);
my $html = $mech->content;
@names = qw(file1);
# COUNTS EACH ELEMENT OF THE ARRAY
$n = 0;
$mech->get($urlFile);
$mech->save_content($filename);
I have tried with this code to connect. But if i get the file name from share point my work is very easy. But some how i am not able to get idea to know the file name. I would really appreciate he you guys could help me on this.20100409 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips |