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 DEBIAN

http::oai::useragent

HTTP::OAI::UserAgent(3pm)				User Contributed Perl Documentation				 HTTP::OAI::UserAgent(3pm)

NAME

       HTTP::OAI::UserAgent - Extension of the LWP::UserAgent for OAI HTTP requests

DESCRIPTION

       This module provides a simplified mechanism for making requests to an OAI repository, using the existing LWP::UserAgent module.

SYNOPSIS

	       require HTTP::OAI::UserAgent;

	       my $ua = new HTTP::OAI::UserAgent;

	       my $response = $ua->request(
		       baseURL=>'http://arXiv.org/oai1',
		       verb=>'ListRecords',
		       from=>'2001-08-01',
		       until=>'2001-08-31'
	       );

	       print $response->content;

METHODS

       $ua = new HTTP::OAI::UserAgent(proxy=>'www-cache',...)
	   This constructor method returns a new instance of a HTTP::OAI::UserAgent module. All arguments are passed to the LWP::UserAgent
	   constructor.

       $r = $ua->request($req)
	   Requests the HTTP response defined by $req, which is a HTTP::Request object.

       $r = $ua->request(baseURL=>$baseref, verb=>$verb, %opts)
	   Makes an HTTP request to the given OAI server (baseURL) with OAI arguments. Returns an HTTP::Response object.

	   OAI-PMH related options:

		   from => $from
		   until => $until
		   resumptionToken => $token
		   metadataPrefix => $mdp
		   set => $set

       $str = $ua->url(baseURL=>$baseref, verb=>$verb, ...)
	   Takes the same arguments as request, but returns the URL that would be requested.

       $time_d = $ua->delay( $time_d )
	   Return and optionally set a time (in seconds) to wait between requests. $time_d may be a CODEREF.

perl v5.12.4							    2011-06-23						 HTTP::OAI::UserAgent(3pm)

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 DEBIAN

http::oai::useragent