Perl HTTP::Tiny Post: 302977929

Sponsored Content

Top Forums Shell Programming and Scripting Perl HTTP::Tiny Post 302977929 by azdps on Saturday 23rd of July 2016 05:35:07 PM

07-23-2016

Registered User

All the following are working solutions to reboot the ARRIS SURFboard SB6183 cable modem:

Using curl

Code:

curl -d Rebooting=1 http://192.168.100.1/goform/RgConfiguration

Using wget

Code:

wget --quiet -O /dev/null --post-data=Rebooting=1 http://192.168.100.1/goform/RgConfiguration

Using HTTP:Tiny module included in Perl (one liner which can be used at a command prompt)

Code:

perl -MHTTP::Tiny -E 'HTTP::Tiny->new->post_form("http://192.168.100.1/goform/RgConfiguration", { Rebooting => 1 })'

Using a Perl script

Code:

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use HTTP::Tiny; 
 
my $url       = 'http://192.168.100.1/goform/RgConfiguration'; 
my $form_data = { Rebooting => 1 }; 
my $http      = HTTP::Tiny->new; 
my $response  = $http->post_form($url, $form_data); 
 
if ( $response->{success} ) { 
    print "Modem rebooted\n"; 
} 
else { 
    print "Reboot failed: ", $response->{reason}, "\n"; 
}

Thanks to FishMonger for his help over at the http://perlguru.com forums.

.
.

Last edited by azdps; 07-23-2016 at 06:52 PM..

azdps

View Public Profile for azdps

Find all posts by azdps

3 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Assistance with Perl and HTTP

I need to query a http site and then parse the xml results, this works well if I use the string in IE but I require an automated solution. I have tried using the following as well as HTTP::Request, nothing seems to work any suggestions would be appreciated, I have tried diffrnt things I found on...

2. Shell Programming and Scripting

Perl Http Post over SSL

Hello, I'm using a tunnel broker for tunneling IPv6 traffic, as my ISP does not support it natively. As of recent i switched from Hurricane Electrics tunnel broker to Sixxs. Whenever my IP address changes, i have to manually log in and change it. This is a bit cumbersome so i was thinking of...

3. Shell Programming and Scripting

awk script to find time difference between HTTP PUT and HTTP DELETE requests in access.log

Hi, I'm trying to write a script to determine the time gap between HTTP PUT and HTTP DELETE requests in the HTTP Servers access log. Normally client will do HTTP PUT to push content e.g. file_1.txt and 21 seconds later it will do HTTP DELETE, but sometimes the time varies causing some issues...

LEARN ABOUT MOJAVE

curlopt_maxredirs

CURLOPT_MAXREDIRS(3)					     curl_easy_setopt options					      CURLOPT_MAXREDIRS(3)

NAME

       CURLOPT_MAXREDIRS - maximum number of redirects allowed

SYNOPSIS

       #include <curl/curl.h>

       CURLcode curl_easy_setopt(CURL *handle, CURLOPT_MAXREDIRS, long amount);

DESCRIPTION

       Pass  a	long.  The  set  number will be the redirection limit amount. If that many redirections have been followed, the next redirect will
       cause an error (CURLE_TOO_MANY_REDIRECTS). This option only makes sense if the CURLOPT_FOLLOWLOCATION(3) is used at the same time.

       Setting the limit to 0 will make libcurl refuse any redirect.

       Set it to -1 for an infinite number of redirects.

DEFAULT

       -1, unlimited

PROTOCOLS

       HTTP(S)

EXAMPLE

       curl = curl_easy_init();
       if(curl) {
	 curl_easy_setopt(curl, CURLOPT_URL, "http://example.com/");

	 /* enable redirect following */
	 curl_easy_setopt(curl, CURLOPT_FOLLOWLOCATION, 1L);

	 /* allow three redirects */
	 curl_easy_setopt(curl, CURLOPT_MAXREDIRS, 3L);

	 /* Perform the request */
	 curl_easy_perform(curl);
       }

AVAILABILITY

       Along with HTTP

RETURN VALUE

       Returns CURLE_OK if HTTP is supported, and CURLE_UNKNOWN_OPTION if not.

SEE ALSO

       CURLOPT_FOLLOWLOCATION(3),

libcurl 7.54.0							 February 03, 2016					      CURLOPT_MAXREDIRS(3)

3 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Assistance with Perl and HTTP

Discussion started by: bryanthomas

2. Shell Programming and Scripting

Perl Http Post over SSL

Discussion started by: regexp

3. Shell Programming and Scripting

awk script to find time difference between HTTP PUT and HTTP DELETE requests in access.log

Discussion started by: Juha

LEARN ABOUT MOJAVE

curlopt_maxredirs