04-12-2010
Instead of doing your own loggers, and blocking.
You can take a look at fail2ban:
Fail2ban
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
i have a HTML report file..its in attachment(a part of the whole report is attached..name "input html.doc").also its source is attached in "report source code.txt"
i just want to seperate the datas like in first line it should be..
NHTEST-3848498958-NHTEST-10.2-no-baloo a
and so on for whole... (3 Replies)
Discussion started by: avik1983
3 Replies
2. Shell Programming and Scripting
#! /usr/local/bin/perl -w
$ip = "$ARGV";
$rw = "$ARGV";
$snmpg = "/usr/local/bin/snmpbulkget -v2c -Cn1 -Cn2 -Os -c $rw";
$snmpw = "/usr/local/bin/snmpwalk -Os -c $rw";
$syst=`$snmpg $ip system sysName sysObjectID`;
sysDescr.0 = STRING: Cisco Internetwork Operating System Software... (1 Reply)
Discussion started by: popeye
1 Replies
3. Programming
I have an extractfile (with fields delimited by pipes '|') and I want to prepend a counter based on the below requirements:
- The counter starts at 3.
- The counter increments only if the date (67th field of the extractfile) is different.
Below is what I started off with:
$cnt=2;... (3 Replies)
Discussion started by: ChicagoBlues
3 Replies
4. Shell Programming and Scripting
Hi All,
I am looking for a parsing in perl script which will parse DJEČJI SVIJET. There is a unicode character above character C. How to parse the total DJEČJI SVIJET in perl.
Regards,
Harikrishna (3 Replies)
Discussion started by: Harikrishna
3 Replies
5. Shell Programming and Scripting
I need some help loading an array. I have two unique delimiters, but I keep running into recursion.
#!/usr/bin/perl
$INFILE="/root/scripts/data.txt";
$pat1="SCRIPT####";
$pat2="SCRIPT#echo";
$flag=0;
$inc=0;
$chunk="";
open(INFILE,"<$INFILE")|| die;
while(<INFILE>) {
if... (2 Replies)
Discussion started by: s_becker
2 Replies
6. Shell Programming and Scripting
I want to write a script that performs this type of behavior:
Example:
./Myscript.pl -a ARGUMENTRun code 'a'
./Myscript.pl -b ARGUMENT
Run code 'b'
Do I use a case statement, functions? I am new to perl, just a code template on how to achieve this would be great. (1 Reply)
Discussion started by: streetfighter2
1 Replies
7. Shell Programming and Scripting
So i'm trying to write a perl script that logins into a network switch via ssh:
#sh ip traffic
IP statistics:
Rcvd: 1460119147 total, 563943377 local destination
0 format errors, 0 checksum errors, 48401998 bad hop count
0 unknown protocol, 8379279 not a gateway
... (2 Replies)
Discussion started by: streetfighter2
2 Replies
8. Shell Programming and Scripting
in bash:
LIST=`cat $1`
for i in $LIST
do
...
done
how will i do this in perl ?
$1 is my first arguement. I'm a newbie in perl and will appreciate much your help guys ... (4 Replies)
Discussion started by: linuxgeek
4 Replies
9. UNIX for Advanced & Expert Users
Hello, I got a file like this.
5201
5202
5203
5204
1234
2345
3456
4567
6210
6220
6230
6240
The required output should be
5201 1234 6210 (9 Replies)
Discussion started by: suverman
9 Replies
10. Shell Programming and Scripting
I am executing a command it is returning me something like this
name ip port
------------------------------------
http-listener-1 * 6712
http-listener-2 * 8709
I have a subroutine getListenerName($porttobeChecked)
This subroutine returns me the name of the listener if i pass a... (4 Replies)
Discussion started by: javaholics
4 Replies
LEARN ABOUT DEBIAN
map_slippy_fetcher
map::slippy::fetcher(3tcl) Mapping utilities map::slippy::fetcher(3tcl)
__________________________________________________________________________________________________________________________________________________
NAME
map::slippy::fetcher - Accessing a server providing tiles for slippy-based maps
SYNOPSIS
package require Tcl 8.4
package require Tk 8.4
package require img::png
package require map::slippy
package require map::slippy::fetcher ?0.2?
::map::slippy::fetcher fetcherName levels url
fetcherName levels
fetcherName tileheight
fetcherName tilewidth
fetcherName get tile donecmd
_________________________________________________________________
DESCRIPTION
This package provides a class for accessing http servers providing tiles for slippy-based maps.
API
::map::slippy::fetcher fetcherName levels url
Creates the fetcher fetcherName and configures it with the number of zoom levels supported by the tile server, and the url it is
listening on for tile requests.
The result of the command is fetcherName.
METHODS
fetcherName levels
This method returns the number of zoom levels supported by the fetcher object, and the tile server it is accessing.
fetcherName tileheight
This method returns the height of tiles served, in pixels.
fetcherName tilewidth
This method returns the width of tiles served, in pixels.
fetcherName get tile donecmd
This is the main method of the fetcher, retrieving the image for the specified tile. The tile identifier is a list containing three
elements, the zoom level, row, and column number of the tile, in this order.
The command refix donecmd will be invoked when the fetcher either knows the image for the tile or that no image will forthcoming.
It will be invoked with either 2 or 3 arguments, i.e.
[1] The string set, the tile, and the image.
[2] The string unset, and the tile.
These two possibilities are used to either signal the image for the tile, or that the tile has no image defined for it.
REFERENCES
[1] http://wiki.openstreetmap.org/wiki/Main_Page
KEYWORDS
http, location, map, server, slippy, tile, url, zoom
map 0.2 map::slippy::fetcher(3tcl)