in reply to Re: perl2exe and
in thread perl2exe and
C:\CAM>cam_reset.exe ERROR: Can't create C:\DOCUME~1\user\LOCALS~1\Temp/p2xtmp-1084/C:/WINN +T/system32/ssleay32.dll
#!\C:\strawberry\perl\bin use HTTP::Request::Common qw(POST GET); use HTTP::Headers; use LWP::UserAgent; use MIME::Base64; use Crypt::SSLeay; #perl2exe_include HTTP::Headers #perl2exe_include LWP::UserAgent #perl2exe_include MIME::Base64 #perl2exe_include Crypt::SSLeay #perl2exe_include "Crypt/SSLeay.pm" #perl2exe_include "C:\WINNT\system32\libeay32.dll" #perl2exe_include "C:\WINNT\system32\libssl32.dll" #perl2exe_include "C:\WINNT\system32\ssleay32.dll" # set up the stuff my $ua = LWP::UserAgent->new(); # Set our own user-agent string! $ua->agent("CCAAgent/v3.5.8 CleanAccessManager API"); # Set the Basic Authentication credentials $encoded = encode_base64('test:test'); my $url = "https://test/admin/cisco_api.jsp"; # Params required for the POST... if (($ARGV[0] eq 'addmac') and defined($ARGV[1])) { my $req = POST $url, 'Authorization' => "Basic ".$encoded, Content => [ admin => "test", passwd => "test,.", op => "addmac", mac => "$ARGV[1]", user => "i-command", provider => "pxebuild", type => "userole", role => "Authorized_Asset", desc => "Reset via icmd" # no comma here! ]; # Fire the cannon now ! my $res = $ua->request($req); # Get the error back from the server if any my $err = $res->status_line; if ($err != 200) { print "Server returned error: $err\n"; exit 1; } # Just print the whole stuff #print $res->as_string; # Just print the return html print $res->content; exit 0;
|
|---|