Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
Please login to access the resource
DISCONTINUED:openSUSE:11.1:Update
dhcp
listlease
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File listlease of Package dhcp
#! /usr/bin/perl # # Author: Kevin C. Miller <kevinm@andrew.cmu.edu> # http://www.andrew.cmu.edu/~kevinm/dhcp/failover.html # # The copyright is with the author. We (SuSE) include this script # with his permission. # use strict; my $LastLease = ''; my $savelease = 0; my $prlease = 0; my $LFILE = "/var/lib/dhcp/dhcpd.leases"; $LFILE = $ARGV[1] if ($ARGV[1] ne ''); open(FILE, $LFILE); while(my $a = <FILE>) { if ($a =~ /^lease /) { print $LastLease if ($prlease); $savelease = 1; $prlease = 0; $LastLease = $a; }else{ $LastLease .= $a if ($savelease); } if ($a =~ /^\}/) { $savelease = 0; } $prlease = 1 if ($a =~ /$ARGV[0]/); } close(FILE); print $LastLease if ($prlease);
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
