Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Can someone convert this python script to perl
Top Forums Shell Programming and Scripting Can someone convert this python script to perl Post 303024717 by azdps on Monday 15th of October 2018 08:09:48 PM
Old 10-15-2018
Can someone convert this python script to perl
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:

reboot-mb8600/reboot-mb8600.py at master . j4m3z0r/reboot-mb8600 . GitHub

Code:
#!/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()

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

convert unix script to perl

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)
Discussion started by: gholdbhurg
2 Replies

2. Shell Programming and Scripting

Need to convert ksh script to Perl

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)
Discussion started by: rahimm1
1 Replies

3. Shell Programming and Scripting

Convert .sh script into perl

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)
Discussion started by: zarahel
3 Replies

4. Shell Programming and Scripting

Help with Simple Perl/Python Script

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)
Discussion started by: Swapnilsagarwal
1 Replies

5. Homework & Coursework Questions

Help with Simple Perl/Python Script

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)
Discussion started by: Swapnilsagarwal
1 Replies

6. Shell Programming and Scripting

Python/Perl script for auto login

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)
Discussion started by: Tuxidow
4 Replies

7. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

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)
Discussion started by: newbie_01
3 Replies

8. Shell Programming and Scripting

Help with convert awk script into perl

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)
Discussion started by: perl_beginner
9 Replies

9. Shell Programming and Scripting

Convert shell script to Perl

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)
Discussion started by: gvolpini
1 Replies

10. Shell Programming and Scripting

Python script to convert date to iso format

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 V7

reboot

reboot(1M)                                                                                                                              reboot(1M)

NAME

       reboot - restart the operating system

SYNOPSIS

       /usr/sbin/reboot [-dlnq] [boot_arguments]

       The reboot utility restarts the kernel. The kernel is loaded into memory by the PROM monitor, which transfers control to the loaded kernel.

       Although  reboot can be run by the super-user at any time, shutdown(1M) is normally used first to warn all users logged in of the impending
       loss of service. See shutdown(1M) for details.

       The reboot utility performs a sync(1M) operation on the disks, and then a multi-user reboot is initiated.  See  init(1M)  for  details.  On
       systems, reboot may also update the boot archive as needed to ensure a successful reboot.

       The  reboot  utility  normally  logs the reboot to the system log daemon, syslogd(1M), and places a shutdown record in the login accounting
       file /var/adm/wtmpx. These actions are inhibited if the -n or -q options are present.

       Normally, the system reboots itself at power-up or after crashes.

       The following options are supported:

       -d              Force a system crash dump before rebooting. See dumpadm(1M) for information on configuring system crash dumps.

       -l              Suppress sending a message to the system log daemon, syslogd(1M) about who executed reboot.

       -n              Avoid calling sync(2) and do not log the reboot to syslogd(1M) or to /var/adm/wtmpx. The  kernel  still  attempts  to  sync
                       filesystems prior to reboot, except if the -d option is also present. If -d is used with -n, the kernel does not attempt to
                       sync filesystems.

       -q              Quick. Reboot quickly and ungracefully, without shutting down running processes first.

       The following operands are supported:

       boot_arguments  An optional boot_arguments specifies arguments to the uadmin(2) function that are passed to the  boot  program  and  kernel
                       upon  restart.  The form and list of arguments is described in the boot(1M) and kernel(1M) man pages.. If the arguments are
                       specified, whitespace between them is replaced by single spaces unless the whitespace is  quoted  for  the  shell.  If  the
                       boot_arguments begin with a hyphen, they must be preceded by the -- delimiter (two hyphens) to denote the end of the reboot
                       argument list.

       Example 1: Passing the -r and -v Arguments to boot

       In the following example, the delimiter -- (two hyphens) must be used to separate the options of reboot from the arguments of boot(1M).

       example# reboot -dl -- -rv

       Example 2: Rebooting Using a Specific Disk and Kernel

       The following example reboots using a specific disk and kernel.

       example# reboot disk1 kernel.test/unix

       /var/adm/wtmpx          login accounting file

       See attributes(5) for descriptions of the following attributes:

       +-----------------------------+-----------------------------+
       |      ATTRIBUTE TYPE         |      ATTRIBUTE VALUE        |
       +-----------------------------+-----------------------------+
       |Availability                 |SUNWcsu                      |
       +-----------------------------+-----------------------------+

       mdb(1), boot(1M),  dumpadm(1M),  fsck(1M),  halt(1M),  init(1M),  kernel(1M),  shutdown(1M),  sync(1M),  syslogd(1M),  sync(2),  uadmin(2),
       reboot(3C), attributes(5)

       The  reboot  utility does not execute the scripts in /etc/rcnum.d or execute shutdown actions in inittab(4).  To ensure a complete shutdown
       of system services, use shutdown(1M) or init(1M) to reboot a Solaris system.

                                                                    11 Apr 2005                                                         reboot(1M)
All times are GMT -4. The time now is 12:42 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy