Looks like the script runs vmquery to put the Tape # (first column) into an array. The array values are later checked.
If a Tape # is found in the array, the number in the 15th column of output from the bpmedialist command for the tape # is bitwise checked to determine if the tape is frozen or full.
If the number has the binary 1 bit turned on, it is frozen
If the number has the binary 8 bit turned on, it is full
If the number has both bits turns on, it is full
The script loops through all found in array tape #'s and returns the status of full or frozen.
I could probably do this in shell, but i'm not that great with binary stuff. I'd use the perl script, as it it pretty quick and doesn't generate any temp files, which i think the shell script would have too. I may take a crack at this tomorrow if no solution has been posted.
From PERL script to single line shell - "What's the status of my Netbackup Media?"
Heh. This took some sweating and cursing. Finally had to talk to the AWK guru in my office.
This prints a list of media, sorted by Status code, then by Media ID, where 0 is available, 01 is Frozen, 10 is Full, and 11 is Full/Frozen. Took about 10 seconds to run for me, though I only have about 1800 tapes in the library.
I presume you're doing this so you can eject full and/or frozen tapes from your robot and load available tapes into the robot. You could put this in crontab and have it email to you right before you get to work every day, so you have an action plan for being the robot stableboy.
Curtis W. Preston has an excellent script out there called CLAM (Curtis' Library Automation Menu) that is an great place to look. It uses Perl but also includes easy "shove tapes into robot" and "extract tapes from robot" that is much faster than goofing with the GUI. We had to do minor tweaks to make it work with Netbackup 6.5.
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
#!/usr/bin/python
'''
A hacky script to... (1 Reply)
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 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)
I have a shell script which I made with the help of this forum
#!/bin/sh
RuleNum=$1
cat bw_rules | sed 's/^.*-x //' | awk -v var=$RuleNum '$1==var {for(i=1;i<=NF;i++) {if($i=="-bwout") print $(i+3),$(i+1)}}'
Basically I have a pages after pages of bandwidth rules and the script gives... (0 Replies)
This is about how to Monitoring folder for new files using shell script
im doing a project using smsserver tools 3. i have used a perl script
to handle incoming messages. the content of each message must be
directed to a java program. this program generates the answer to reply
to the user... (2 Replies)
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 need a shell script which will convert the given string within a <title> tag to Capitalize case.
E.g "<title>hi man: check this out</title>"
to "<title>Hi Man: Check This Out</title>" (11 Replies)
perl script:
my $logdir = '/smp/dyn/logfiles/fsm/mp/mp';
$logdir = $logdir ."/mp${toDate}*";
i tried to make it..as below .. but not working ..
date +%m%d%y
logdir = /smp/dyn/logfiles/fsm/mp/mp
logdir=$logdir/mp"$date"
but it was not working.....
can someone please help me out in... (1 Reply)