Find a line, and comment out the next 5 lines
From: joe shaboo (jshaboo_at_hotmail.com)
Date: 04/13/04
- Next message: jason_at_votenader.org: "Hey, Corporate America! Show Taxpayers Some Appreciation!"
- Previous message: Ravi: "How to install SUIDPERL"
- Next in thread: mdh: "Re: Find a line, and comment out the next 5 lines"
- Reply: mdh: "Re: Find a line, and comment out the next 5 lines"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: 13 Apr 2004 05:25:00 -0700
HI,
I'm new to Perl. I'm trying to write a simple script which will
comment out a domain in my named.conf file for Bind.
What I would like to do, is write a script which will comment out a
domain from my named.conf if I no longer want to host that domain.
So, what I'd like to do is create a means to search for a domain
(mydomain.com) and comment out that file and all lines associated with
the file, and put a date when it was commented out. I'd also like to
take the UID of who commented it out, so if needed, we can ask that
person why it was commented out. As a hint we use sudo, so this should
be plausible, but again, not sure of the system command. If I use id,
it says I'm root, but how can I get the name of the user before I
became root?
named.conf example
zone "mydomain.com" {
type master;
file "/path/to/zone/mydomain.com";
notify yes;
}
What I'd like to do
// Domain taken out of named.conf at request of Customer by UID, date
// zone "mydomain.com" {
// type master;
// file "/path/to/zone/mydomain.com
// notify yes;
// }
Sounds simple enough, but I am not sure how to do it.
many thanks,
joe (jshaboo@hotmail.com)
- Next message: jason_at_votenader.org: "Hey, Corporate America! Show Taxpayers Some Appreciation!"
- Previous message: Ravi: "How to install SUIDPERL"
- Next in thread: mdh: "Re: Find a line, and comment out the next 5 lines"
- Reply: mdh: "Re: Find a line, and comment out the next 5 lines"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
|
