There is a python script that I would like converted to a perl script. If someone has the time to convert the script I would appreciate it. You can find the script below:
#!/usr/bin/python
'''
A hacky script to reboot the Motorola MB8600 modem.
'''
import urllib, urllib2, sys
from bs4 import BeautifulSoup
MODEM_IP = '192.168.100.1'
USERNAME = 'admin'
PASSWORD = 'motorola'
ENCODED_PASSWORD = 'bW90b3JvbGE' # get from login URL from web UI.
def login(modem) :
'''
The modem seems to just be in a global "logged in" state once the password
is sent -- no cookies are set.
'''
# the password is encoded with some simple function in JS. It is a
# symmetric encoding of some form, so the encoding is always the same. This
# is the encoding of the default password 'motorola'. Note that the ordering
# of the arguments matters, and so does the trailing '=&' that we tack on
# to the end of the URL.
args = [
('loginUsername', USERNAME),
('loginPassword', ENCODED_PASSWORD)
]
encodedArgs = urllib.urlencode(args)
url = 'http://%(modem)s/login_auth.html?%(encodedArgs)s=&' % locals()
# This will respond with a 200 return code with a HTML body claiming that
# there was a 400 error if login was successful, or an actual 400 error if
# the login was not successful.
try :
urllib2.urlopen(url).read()
except urllib2.HTTPError, e :
print >> sys.stderr, "400 error returned from modem. Check the password"
raise e
def getSession(modem) :
# the session key is included as a hidden field on the form with the reboot
# button. We use BeautifulSoup to extract it.
req = urllib2.Request('http://%(modem)s/MotoSecurity.html' % locals())
html = urllib2.urlopen(req).read()
soup = BeautifulSoup(html, "html.parser")
sessionField = soup.find(attrs={'name' : 'sessionKey'})
return str(sessionField.attrs['value'])
def reboot(modem, session) :
# reconstruct the reboot request and send it here to start the reboot.
argDict = [
('MotoUsername', USERNAME),
('MotoCurPassword', PASSWORD),
('MotoNewUsername', USERNAME),
('MotoNewPassword', PASSWORD),
('MotoRepPassword', PASSWORD),
('MotoSecurityAction', '1'),
('sessionKey', session)
]
url = 'http://%(modem)s/goform/MotoSecurity' % locals()
req = urllib2.Request(url, urllib.urlencode(argDict))
urllib2.urlopen(req).read()
# the response from the reboot request instructs us to visit this page, so
# we do a fetch against it here. Otherwise the modem seems to not reboot.
urllib2.urlopen('http://%(modem)s/rebootinfo.html' % locals()).read()
def main() :
login(MODEM_IP)
session = getSession(MODEM_IP)
reboot(MODEM_IP, session)
if __name__ == '__main__' :
main()
Hi,
I have these lines in a unix script:
FILEONE = /<filepath1>/<filename1.txt>
FILENEW = /<filepath2>/<filename2.txt>
head -5 $FILEONE | sed '1d' > $FILENEW
PARAM1 = `cat $FILENEW | awk '{print $2;}' `
echo "Param1 Value: $PARAM1"
What's the correct syntax of the above lines if same... (2 Replies)
Guys I am new to this forum, this may seem like a cheeky request.
I have been asked by my manager to convert this ksh script to Perl. I do not have the foggiest about Perl and would appreciate any help on this.
Basically this scipt automates a recovery process for EMC Legato Networker. It will... (1 Reply)
Good afternoon to you all
I really need your help
I have the following script developed in .sh and I need to convert it into perl. Can someone help me do it please?
Here´s the script:
##############################################
##############################################
... (3 Replies)
I have the following problem, which I need done in Perl/ or Python using Unix/linux filters...
1. You have a very large file, named 'ColCheckMe', tab-delmited, that you are asked to process. You are told that each line in 'ColCheckMe' has 7 columns, and that the values in the... (1 Reply)
I have the following problem, which I need done in Perl/ or Python using Unix/linux filters...
1. You have a very large file, named 'ColCheckMe', tab-delmited, that you are asked to process. You are told that each line in 'ColCheckMe' has 7 columns, and that the values... (1 Reply)
I am loooking for a python/perl script which can login to gmail or any mail accounts and open a browser with the logged in page. I am trying this in a windows environment. I tried many docs available over internet an nothing seems to be working. (4 Replies)
Hi all,
Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM.
Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers.
At the moment am... (3 Replies)
Input file (a list of input file name with *.txt extension):
campus.com_icmp_ping_alive.txt
data_local_cd_httpd.txt
data_local_cd.txt
new_local_cd_mysql.txt
new_local_cd_nagios_content.txt
Desired output file:
data local_cd_httpd
data local_cd
new local_cd_mysql
new ... (9 Replies)
Hello,,I have a very small script that contains these lines; and it works perfectly; however I need to use Perl now as I will need to feel variables from a MySQL table into this; to it would be nice to start by converting this first...
find / -perm 777 \( -type f -o -type d \) -exec ls -lid {}... (1 Reply)
Hi ,
This is my 1st program in python never tried any python before.
i am trying to write a python script which reads a .tsv file line by line and in each line it should look for mm/dd/yyyy formate and convert it to yyyy-mm-dd formate . can some one provide be some sample code to do that. (2 Replies)
Discussion started by: vikatakavi
2 Replies
LEARN ABOUT DEBIAN
build-lives-rfx-plugin
build-lives-rfx-plugin(1) General Commands Manual build-lives-rfx-plugin(1)NAME
build-lives-rfx-plugin - builds rendered effects for LiVES
SYNOPSIS
build-lives-rfx-plugin script_name [plugin_dir] -get section file
DESCRIPTION
This perl script is used by LiVES to compile an RFX (rendered effect) plugin for LiVES. It is generally called from build-lives-rfx-plugin-
multi for a script which has a language code representing LiVES-perl. The script_name must be the full (absolute) path to the plugin
script, and plugin_dir can be used to specify the output directory where the compiled plugin should be generated. If plugin_dir is not
defined then /tmp is assumed.
The second variant with -get is used to print out a script section from a plugin script to stdout. It is generally only used internally by
LiVES.
Return values The script returns the following values
0 - success 1 - the value of a trigger was greater than the number of parameters 2 - a value could not be read from the script file 3 - the
language code of the plugin script was not equivalent to LiVES-perl 4 - the API version level of the plugin script was invalid 5 - the
<define> section was missing from the plugin script
SEE ALSO build-lives-rfx-plugin-multi(1), lives(1)AUTHOR
Gabriel Finch a.k.a Salsaman (salsaman@xs4all.nl)
May 9 2010 build-lives-rfx-plugin(1)