Made some basic utilites for cross-plattform usage, as well as for unified and simplified usage.
Reused and wraped RudiC's echo_, thanks again
Code:
#
# Some tools
#
swarm.util.isRoot() { #
# Returns TRUE if user ID is 0
# Returns FALSE otherwise
if [[ ${UID:-${EUID:-0}} -eq 0 ]]
then $ECHO true
return 0
else $ECHO false
return 1
fi
}
swarm.util.isGUI() { #
# Returns TRUE if XDG_CURRENT_DESKTOP, DESKTOP_SESSION or XAUTHORITY is set
# Returns FALSE otherwise
if [[ -n "${XDG_CURRENT_DESKTOP:-${DESKTOP_SESSION:-$XAUTHORITY}}" ]]
then $ECHO true
return 0
else $ECHO false
return 1
fi
}
swarm.util.mkdir() { # /path/to/make
# Creates full path structures
#
${isRO:-false} && return 1
# Remove any possible args from ARGS
while [[ "-" == "${1:0:1}" ]] ; do shift ; done
swarm.protect "$FUNCNAME" "${@}" && return 1
# Vars
local dir_done=""
local dir_todo=$($PRINTF "${1:1}" | $SED s,"/","\n",g)
# Start pipe
$PRINTF '%s\n' "$dir_todo" | while read current
do # Prepare next dir
dir_done+="/$current"
# Create if not exist
[[ -d "$dir_done" ]] || $MKDIR "$dir_done"
done
return 0
}
swarm.util.echo() { # [-e|-n|-en|-ne] STRING
# Simple echo's, by RudiC @ unix.com
#
echo_(){
( IFS=" "; $PRINTF "%s\n" "$*" )
}
# Portable echo -n
echo_n() {
( IFS=" "; $PRINTF "%s" "$*" )
}
# Portable echo -e
echo_e() {
( IFS=" "; $PRINTF "%b\n" "$*" )
}
# Portable echo -ne
echo_ne() {
( IFS=" "; $PRINTF "%b" "$*" )
}
case "${1/-}" in
"n") shift ; echo_n "${@}" ;;
"e") shift ; echo_e "${@}" ;;
"en"|"ne")
shift ; echo_ne "${@}" ;;
*) echo_ "${@}" ;;
esac
}
swarm.util.isDir() { # /path/to/dir
# Returns true if passed string is a directory
#
[[ -d "$1" ]]
return $?
}
#
# Short variable access to util functions
# and to keep file usage to a minimum
#
isRoot=$(swarm.util.isRoot)
isGUI=$(swarm.util.isGUI)
isDir="swarm.util.isDir"
MKDIR="swarm.util.mkdir"
ECHO="swarm.util.echo"
But currently I'm still busy in re-thinking/doing the init procedure....
Well, unifying (is that a word??) the procedure of using functions to do different checks, keep/put all variables to RAM while put some essential ones (usage speed increase / customize options) in the 'rc' file.
The specific part of preparing configuration files & folders that are optional - because it must run on a Read-Only system as well, is quite more challenging than making it just in a "must-be-installed" way.
Also, with my... crazy... idea of implementing an optional ramdisk support (as root, for configuration and tempfiles only) didnt make the init procedure any easier.
Further, I need to 'bypass' the (so far hardcoded) use of /root because not all systems have it, thus I have to place the configfile (swarmrc) in another place, like using '/etc' if root has no $HOME.
this is the output i am getting here..
cp: cannot create /wls_domains/eoigw/eoigwsA/deliv/cron/MailingScript/eoigwsA_Health_Status_Report.html: Permission denied
/wls_domains/eoigw/eoigwsA/deliv/cron/MailingScript/
/wls_domains/eoigw/eoigwsA/deliv/cron/MailingScript/GenerateReport.sh:... (6 Replies)
Hi Guys, I am trying write a wrapper script but I don't have any idea. I have 4 different korn shell scripts and all of them needs some parameters from command line (positional parameter). My script cant be interactive because its supposed to be automated. I am confused how can I write a wrapper... (6 Replies)
Hello!
I would like to create a blog website on a web domain of mine. The blog will be used for publishing economics-lated articles.
I tried to use a few open source packages for blog creation (WorldPress, b2evolution, Movable type) which I wanted to test on a local computer before arranging... (5 Replies)
Hi all,
Can I create multiple threads using single thread_id
like
pthread_t thread_id;
pthread_create(&thread_id, NULL, &print_xs, NULL);
pthread_create(&thread_id, NULL, &print_ys, NULL);
pthread_create(&thread_id, NULL, &print_zs, NULL);
pthread_join(thread_id, NULL);
what... (2 Replies)
Hi,
I am trying to capture runtime stats of a shell script (c shell). Are there system variables to call? Or should I create a date variable at the start of the script and at the end of the script? I am trying to capture the time if the script stops or ends with error.
Please help.
... (4 Replies)
Hello,
My requirement is based on Oracle where we run a perl script and it asked some questions.I want to write a wrapper which will answer all these questions.
How is it possible.
Thanks (16 Replies)
Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted!
1. The problem statement, all variables and given/known data:
Make a bash script that calculates average runtime for the first two scripts you made. The average should be... (17 Replies)
Hi,
I have shell script that I am running under Ubuntu as root.
Is it possible to hide the command window and show the user some sort of progress /random progress bar / or other form of GUI interaction?
On MAC, I have been using Platypus but on Ubuntu I am not sure what to do. (4 Replies)
Discussion started by: naveedanwar4u
4 Replies
LEARN ABOUT DEBIAN
text::wrapper
Text::Wrapper(3pm) User Contributed Perl Documentation Text::Wrapper(3pm)NAME
Text::Wrapper - Word wrap text by breaking long lines
VERSION
This document describes version 1.04 of Text::Wrapper, released May 25, 2012.
SYNOPSIS
require Text::Wrapper;
$wrapper = Text::Wrapper->new(columns => 60, body_start => ' ');
print $wrapper->wrap($text);
$wrapper->columns(70);
DESCRIPTION
Text::Wrapper provides simple word wrapping. It breaks long lines, but does not alter spacing or remove existing line breaks. If you're
looking for more sophisticated text formatting, try the Text::Format module.
Reasons to use Text::Wrapper instead of Text::Format:
o Text::Wrapper is significantly smaller.
o It does not alter existing whitespace or combine short lines. It only breaks long lines.
Again, if Text::Wrapper doesn't meet your needs, try Text::Format.
ATTRIBUTES
body_start
The text that begins the second and following lines of a paragraph. (Default '')
columns
The number of columns to use. This includes any text in body_start or par_start. (Default 70)
par_start
The text that begins the first line of each paragraph. (Default '')
wrap_after
A line can wrap after any of the characters in this string. Setting this to the empty string means a line will wrap only at whitespace.
(Default '-')
METHODS
wrap
$wrapper->wrap($text)
Returns a word wrapped copy of $text. The original is not altered.
CONFIGURATION AND ENVIRONMENT
Text::Wrapper requires no configuration files or environment variables.
DEPENDENCIES
None.
INCOMPATIBILITIES
None reported.
BUGS AND LIMITATIONS
Does not handle tabs (they're treated just like spaces).
All characters are treated as being the same width, including zero-width spaces and combining accents.
Does not break words that can't fit on one line.
AUTHOR
Christopher J. Madsen "<perl AT cjmweb.net>"
Please report any bugs or feature requests to "<bug-Text-Wrapper AT rt.cpan.org>" or through the web interface at
http://rt.cpan.org/Public/Bug/Report.html?Queue=Text-Wrapper <http://rt.cpan.org/Public/Bug/Report.html?Queue=Text-Wrapper>.
You can follow or contribute to Text-Wrapper's development at http://github.com/madsen/text-wrapper <http://github.com/madsen/text-
wrapper>.
COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Christopher J. Madsen.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
DISCLAIMER OF WARRANTY
BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT
WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND,
EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF
ALL NECESSARY SERVICING, REPAIR, OR CORRECTION.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENSE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, OR
CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
perl v5.14.2 2012-05-25 Text::Wrapper(3pm)
04-09-2020
