<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>HowtoLinux &#187; scripts</title>
	<atom:link href="http://www.debiandoctor.com/category/bash-perl/feed" rel="self" type="application/rss+xml" />
	<link>http://www.debiandoctor.com</link>
	<description>The best Unix/Linux Server Resources  Availabe on Internet.</description>
	<lastBuildDate>Sat, 20 Mar 2010 19:29:26 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.9.2</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Script for Nagios installation</title>
		<link>http://www.debiandoctor.com/bash-perl/script-for-nagios-installation.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/script-for-nagios-installation.html#comments</comments>
		<pubDate>Sat, 21 Feb 2009 09:40:18 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/?p=125</guid>
		<description><![CDATA[script for Nagios installation
#!/bin/bash
dir=/usr/local/nagios
wget http://osdn.dl.sourceforge.net/sourceforge/nagios/nagios-3.0.6.tar.gz
wget http://osdn.dl.sourceforge.net/sourceforge/nagiosplug/nagios-plugins-1.4.11.tar.gz
mkdir -p $dir
grep -i &#8220;red hat&#8221; /etc/issue&#62;/dev/null2&#62;&#38;1
if [ `echo $? ` = 0 ];then
useradd nagios
else
groupadd nagios
useradd -G nagios nagios
fi
tar xzf nagios-plugins-1.4.11.tar.gz
cd nagios-plugins-1.4.11
./configure &#8211;prefix=/usr/local/nagios &#8211;enable-redhat-pthread-workaround
make
make install
cd ..
tar xzf nagios-3.0.6.tar.gz
cd nagios-3.0.6
./configure &#8211;prefix=/usr/local/nagios
make install
make install-init
make install-config
make install-commandmode
make install-webconf
# make sure xinetd is installed.
echo &#8221; nrpeÂ Â Â Â Â  5666/tcpÂ Â Â Â Â  #nrpe&#8221; &#62;&#62; /etc/services
chown -R nagios.nagios /usr/local/nagios
service xinetd restart
test=`/usr/local/nagios/libexec/check_nrpe -H 127.0.0.1`
teststr=&#8221;NRPE v2.8.1&#8243;
if [ "$test"="$teststr" ] ;then
echo -e &#8220;install success!!&#8221;
else
echo -e &#8220;install error!!!&#8221;
fi
]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/script-for-nagios-installation.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Automated Ftp script.</title>
		<link>http://www.debiandoctor.com/bash-perl/automated-ftp-script.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/automated-ftp-script.html#comments</comments>
		<pubDate>Wed, 21 Nov 2007 07:31:28 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=80</guid>
		<description><![CDATA[This will find all files inside the /root/remote/ and rename it to .done
and uploads them one by one.
#!/bin/bash
ls /root/remote/*.txt &#62; /root/remote/files
cd /root/remote
for i in `ls *.txt`;do mv &#8220;$i&#8221; &#8220;`basename $i .txt`.done&#8221;; done
for f in *.done; do
ftpÂ  -inv test.com&#60;&#60;ENDFTP
user username password
cd test
lcd /root/remote
put $f
bye
ENDFTP
done
]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/automated-ftp-script.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Load Alert script for Sun Solaris.</title>
		<link>http://www.debiandoctor.com/bash-perl/load-alert-script-for-sun-solaris.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/load-alert-script-for-sun-solaris.html#comments</comments>
		<pubDate>Wed, 21 Nov 2007 07:10:37 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=73</guid>
		<description><![CDATA[#!/bin/bash
EMAIL=&#8221;linu@pearlin.info&#8221;
SUBJECT=&#8221;Alert $(hostname) load average is $L05&#8243;
TEMPFILE=&#8221;/tmp/$(hostname)&#8221;
echo &#8220;Load average Crossed allowed limit.&#8221; &#62;&#62; $TEMPFILE
echo &#8220;Hostname: $(hostname)&#8221; &#62;&#62; $TEMPFILE
echo &#8220;Local Date &#38; Time : $(date)&#8221; &#62;&#62; $TEMPFILE
echo &#8220;&#124; Uptime status: &#124;&#8221; &#62;&#62; $TEMPFILE
echo &#8220;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-&#8221; &#62;&#62; $TEMPFILE
/usr/bin/uptime &#62;&#62; $TEMPFILE
echo &#8220;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-&#8221; &#62;&#62; $TEMPFILE
echo &#8220;&#124; Top 20 CPU consuming processes: &#124;&#8221; &#62;&#62; $TEMPFILE
/usr/ucb/ps auwx &#124; sort -rn +2 &#124; head -20 &#62;&#62; $TEMPFILE
echo &#8220;&#124; Top 10 memory-consuming processes: &#124;&#8221; &#62;&#62; $TEMPFILE
/usr/ucb/ps awux &#124; sort -rn +3 &#124; head &#62;&#62; $TEMPFILE
echo &#8220;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-&#8221; &#62;&#62; $TEMPFILE
echo &#8220;&#124; Memory ...]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/load-alert-script-for-sun-solaris.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>SSH root Login alert.</title>
		<link>http://www.debiandoctor.com/bash-perl/ssh-root-login-alert.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/ssh-root-login-alert.html#comments</comments>
		<pubDate>Wed, 21 Nov 2007 07:03:40 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=69</guid>
		<description><![CDATA[1. Login to your server and su to root
2. cd /root
3. vi .bashrc
4. Scroll to the end of the file then add the following:
echo &#8216;ALERT &#8211; Root Shell Access (YourserverName) on:&#8217; `date` `who` &#124; mail -s &#8220;Alert: Root Access from `who &#124; cut -d&#8221;(&#8221; -f2 &#124; cut -d&#8221;)&#8221; -f1`&#8221; you@yourdomain.com
Replace YourServerName with the handle for your actual server
Replace you@yourdomain.com with your actual email address
5. Crtl + XÂ  then Y
]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/ssh-root-login-alert.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>For Loops</title>
		<link>http://www.debiandoctor.com/bash-perl/for-loops.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/for-loops.html#comments</comments>
		<pubDate>Wed, 21 Nov 2007 07:02:07 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=68</guid>
		<description><![CDATA[http://www.debian-administration.org/articles/150
skx@lappy:~$ for i in *.JPG; do echo $i; done
a.JPG
b.JPG
c.JPG
d.JPG
for i in *.jpg; do mv &#8220;$i&#8221; &#8220;`basename $i .jpg`.JPG&#8221;; done
for i in $(seq 1 100); do echo -n &#8220;file${i} &#8220;; touch file${i} 2&#62;&#38;1; done
The the above for loop will create 100 files (called file1, file2, etc.).
Now I have many websites in a list file &#8220;block.list&#8221;, and would like to have the script pass them one by one in a for loop&#8230; How would I accomplish that in a bash script?
something of ...]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/for-loops.html/feed</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>ip-blocker-3-perl-ddos</title>
		<link>http://www.debiandoctor.com/bash-perl/ip-blocker-3-perl-ddos.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/ip-blocker-3-perl-ddos.html#comments</comments>
		<pubDate>Fri, 27 Jul 2007 21:52:05 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=58</guid>
		<description><![CDATA[#!/usr/bin/perl
$&#124; = 1;
my $port = 80;
my $total = 0;
my $IP_LIMIT = 90;Â Â Â Â Â Â Â Â Â Â Â Â Â  # upper limit of httpd connections
my $LOGF = &#8220;/tmp/ddos.log&#8221;;Â Â Â Â  # file used to log ips
my $EMAIL = &#8216;root&#8217;;
my $DELAY = 60;
my $TIMEF = &#8216;/tmp/time_file&#8217;;
open FD, &#8220;+&#62;&#62;$LOGF&#8221; or die &#8220;$!&#8221;;
select FD;
open( CMD, &#8220;netstat -an&#124;&#8221; );
while (&#60;CMD&#62;) {
chomp;
($proto, undef, undef, $local_addr, $remote_addr, undef) = split(/ +/, $_, 5);
($local_ip, $local_port) = split( /:/, $local_addr );
($remote_ip, $remote_port) = split( /:/, $remote_addr );
next if $remote_ip =~ /0.0.0.0/;
next if $remote_ip =~ /192.168.0.1/;Â Â Â  #our ip
next ...]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/ip-blocker-3-perl-ddos.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>ip-blocker-1 for ddos</title>
		<link>http://www.debiandoctor.com/bash-perl/ip-blocker-1-for-ddos.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/ip-blocker-1-for-ddos.html#comments</comments>
		<pubDate>Fri, 27 Jul 2007 21:48:15 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=57</guid>
		<description><![CDATA[#!/bin/bash
for ((Â  n = 0 ;Â  n &#60;= 29;Â  n++Â  ))
do
netstat -plan&#124;grep :80&#124;awk {&#8216;print $5&#8242;}&#124;cut -d: -f 1&#124;sort&#124;uniq -c&#124;sort -nk 1
netstat -plan&#124;grep :80&#124;awk {&#8216;print $5&#8242;}&#124;cut -d: -f 1&#124;sort&#124;uniq -c&#124;sort -nk 1 &#124; awk &#8216;{ if ( $1 &#62; 35 ) printÂ Â  $2
}&#8217; &#62; /tmp/blockedip
for i in `cat /tmp/blockedip`
do
printf &#8221; \t\t\t\033[1;34mÂ  $i \033[0m \n \n";
CHECK_IF_LOCALIP=0;
/sbin/ifconfig &#124; grep $i &#62; /dev/null;
if [ $? -ne $CHECK_IF_LOCALIP ]
then
{
FLAG=0;
grep $i /etc/sysconfig/iptables &#124; grep DROPÂ  &#62; /dev/null;
if [ $? -ne $FLAG ]
then
printf &#8220;\033[1;35m \t\tBLOCKING ALL CONNECTIONS ...]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/ip-blocker-1-for-ddos.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>All-upgrade-script.</title>
		<link>http://www.debiandoctor.com/bash-perl/all-upgrade-script.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/all-upgrade-script.html#comments</comments>
		<pubDate>Fri, 27 Jul 2007 21:13:56 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=54</guid>
		<description><![CDATA[#!/bin/sh
###########################
# Update all v2.0 Released By Wael Isa
# http://www.web4host.net
# Date 22-5-2006
###########################
# Update to openssl-0.9.8b
# Update to exim-4.62
# Update to openssh-4.3p2
# Update to proftpd-1.3.0
# Update to phpMyAdmin 2.8.1
# Update to MySQL-server-4.1.19-0
###########################
echo &#8220;Update all v2.0 Released By Wael Isa&#8221;
echo &#8220;http://www.web4host.net&#8221;
echo &#8220;Date 22-5-2006&#8243;
echo &#8220;&#8221;
echo &#8220;&#8221;
echo &#8220;&#8221;
echo &#8220;&#8221;
echo &#8220;Update to openssl-0.9.8b&#8221;
echo &#8220;Update to exim-4.62&#8243;
echo &#8220;Update to openssh-4.3p2&#8243;
echo &#8220;Update to proftpd-1.3.0&#8243;
echo &#8220;Update to phpMyAdmin 2.8.1&#8243;
echo &#8220;Update to MySQL-server-4.1.19&#8243;
echo &#8220;&#8221;
echo &#8220;Do you want to continue ? (y/n) [y]&#8221;
read CONFIRM
case &#8220;$CONFIRM&#8221; in
[yY]) ;;
&#8220;&#8221;) ;;
*) echo &#8220;Abort done&#8221;
exit ...]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/all-upgrade-script.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>adding Dns entry-script</title>
		<link>http://www.debiandoctor.com/bash-perl/adding-dns-entry-script.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/adding-dns-entry-script.html#comments</comments>
		<pubDate>Wed, 11 Jul 2007 05:51:10 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=39</guid>
		<description><![CDATA[#!/bin/sh
# must run as root
# assumes bind is installed on a linux box
# this script has very few sanity checks
# files modified are :
# /etc/named.conf $PZPATH$DOMAIN
# see http://www.ripserve.com/gpl/ for latest version
# the following variables need to be set
PROVIDER=&#8221;pearlin.info&#8221;
PZPATH=&#8221;/etc/named/pz/&#8221;
NS1=&#8221;darling&#8221;
NS2=&#8221;blofeld&#8221;
MX=$NS2
IP=&#8221;62.25.97.28&#8243;
TXT=&#8221;Ripserve Ltd. London&#8221;
if [ $# -lt 1 ]; then
echo &#8220;Usage: $0  domain1 domian2 &#8230;&#8221;
exit 1
fi
USER=$(id &#124; grep root &#124; wc -l)
if [ $USER -eq 0 ]
then
echo &#8220;Run this as root to add domains to DNS&#8221;
exit 1
fi
mainfunction () {
#create pz file
cat &#60;&#60;EOF &#62; ...]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/adding-dns-entry-script.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>New mail account creation script for postfix</title>
		<link>http://www.debiandoctor.com/bash-perl/new-mail-account-creation-script-for-postfix.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/new-mail-account-creation-script-for-postfix.html#comments</comments>
		<pubDate>Wed, 11 Jul 2007 05:42:41 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=38</guid>
		<description><![CDATA[#!/bin/sh
# must run as root
# only tested on linux using /etc/passwd
# files modified are :
# /etc/passwd , /etc/shadow &#38; /etc/group
# /etc/passwd.md5 for integrity checking
# /home/$USERNAME , and quota file (if it exists)
# /etc/postfix/virtual , $ACCESS &#38; db&#8217;s if they exist
# $SQUIRREL/$USERNAME.* if they exist
# the following variables are user-modifiable
#default virtual host
VHOST=&#8221;ripserve.com&#8221;
#where to mail new account info (to sysadmin)
MAIL=&#8221;root@$VHOST&#8221;
#path to squirrelmail data, &#38; postfix access file, both optional
SQUIRREL=&#8221;/var/lib/squirrelmail/prefs&#8221;
ACCESS=&#8221;/etc/postfix/sender_access&#8221;
PROVIDER=&#8221;$VHOST&#8221;
QUOTA=&#8221;500000 520000 500000 6000000&#8243;
function newusermail()
{
cat &#60;&#60;EOF &#124; mail -s &#8220;Welcome to $PROVIDER&#8221; $USERNAME@$VHOST
$REALNAME, welcome ...]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/new-mail-account-creation-script-for-postfix.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>disk usage,network,memory..script</title>
		<link>http://www.debiandoctor.com/bash-perl/disk-usagenetworkmemoryscript.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/disk-usagenetworkmemoryscript.html#comments</comments>
		<pubDate>Wed, 11 Jul 2007 05:38:50 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=37</guid>
		<description><![CDATA[#!/bin/sh
# Released under the GPL
# Assumes you&#8217;re running linux, bsd will generate less info
# BUGS: bsd produces weird df output
# The following variable is who to email the output to
MAIL=root
HOST=$(hostname)
DATE=$(date +%d/%m/%Y)
USER=$(id &#124; grep root &#124; wc -l)
if [ $USER -eq 0 ]
then
echo &#8220;Unless you&#8217;re root you won&#8217;t get the full reports&#8221;
fi
{
echo -e &#8220;\n Uptime &#38; load info\n&#8221;; w
echo -e &#8220;\n\n Disk usage\n&#8221;; df -h
df -l &#124; grep dev &#124; awk &#8216;{t += $2; u += $3} END { printf(&#8220;%d MB, ...]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/disk-usagenetworkmemoryscript.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>combined script for Load check,memory &amp; swap,network connections,disk usage.</title>
		<link>http://www.debiandoctor.com/bash-perl/combined-script-for-load-checkmemory-swapnetwork-connectionsdisk-usage.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/combined-script-for-load-checkmemory-swapnetwork-connectionsdisk-usage.html#comments</comments>
		<pubDate>Sun, 08 Jul 2007 15:43:51 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=32</guid>
		<description><![CDATA[#!/bin/bash
EMAIL=&#8221;linu@pearlin.info&#8221;
SUBJECT=&#8221;Alert $(hostname) load average is $L05&#8243;
TEMPFILE=&#8221;/tmp/$(hostname)&#8221;
echo &#8220;Load average Crossed allowed limit.&#8221; &#62;&#62; $TEMPFILE
echo &#8220;Hostname: $(hostname)&#8221; &#62;&#62; $TEMPFILE
echo &#8220;Local Date &#38; Time : $(date)&#8221; &#62;&#62; $TEMPFILE
echo &#8220;&#124; Uptime status: &#124;&#8221; &#62;&#62; $TEMPFILE
echo &#8220;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-&#8221; &#62;&#62; $TEMPFILE
/usr/bin/uptime &#62;&#62; $TEMPFILE
echo &#8220;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-&#8221; &#62;&#62; $TEMPFILE
echo &#8220;&#124; Top 20 CPU consuming processes: &#124;&#8221; &#62;&#62; $TEMPFILE
ps aux &#124; head -1 &#62;&#62; $TEMPFILE
ps aux &#8211;no-headers &#124; sort -rn +2 &#124; head -20 &#62;&#62; $TEMPFILE
echo &#8220;&#124; Top 10 memory-consuming processes: &#124;&#8221; &#62;&#62; $TEMPFILE
ps aux &#8211;no-headers&#124; sort -rn +3 &#124; head ...]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/combined-script-for-load-checkmemory-swapnetwork-connectionsdisk-usage.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>server scripts</title>
		<link>http://www.debiandoctor.com/bash-perl/server-scripts.html</link>
		<comments>http://www.debiandoctor.com/bash-perl/server-scripts.html#comments</comments>
		<pubDate>Fri, 06 Jul 2007 00:23:17 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[scripts]]></category>

		<guid isPermaLink="false">http://pearlin.info/blog/?p=31</guid>
		<description><![CDATA[http://forums.linuxwebadmin.info/index.php/topic,44.0.htm
Script which will send you email alert when disk space usage is more than 70%:
&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-
#!/bin/bash
usage=`df -h &#124; awk &#8216;{print $5}&#8217; &#124; sed -e N -e &#8217;s/\n/ /&#8217; &#124; awk &#8216;{print $2}&#8217; &#124; tr -d % -s &#8220;\n&#8221;`
devnm=`df -h &#124; awk &#8216;{print $1}&#8217; &#124; sed -e N -e &#8217;s/\n/ /&#8217; &#124; awk &#8216;{print $2}&#8217; &#124; tr -s &#8220;\n&#8221;`
str=&#8221;=============================&#8221;
if [ $usage -ge 70 ]; then
info=&#8221;Disk usage for $devnm is more than 70% , Current Disk usage is $usage % &#8221;
echo -e &#8220;$str\n$info\n$str&#8221; ...]]></description>
		<wfw:commentRss>http://www.debiandoctor.com/bash-perl/server-scripts.html/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
