ispman/bin ispman.remove_canonical_map_entry,NONE,1.1
Atif Ghaffar <[email protected]>
| Newsgroups | gmane.comp.isp.ispman.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22122
Added Files:
ispman.remove_canonical_map_entry
Log Message:
Forgot this one
--- NEW FILE: ispman.remove_canonical_map_entry ---
#!/usr/bin/perl
package ISPMan;
BEGIN {
use FindBin;
unshift @INC,
( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
}
use ISPMan;
$ispman = ISPMan->new();
require "$FindBin::Bin/../lib/smtp.lib";
# defind log_message.
# This is defined in ispman-agent and we should redefine here
sub logsay {
my $message = join ' ', @_;
chomp($message);
print "$message\n";
}
&remove_canonical_map_entry(@ARGV);
__END__
-------------------------------------------------------
The SF.Net email is sponsored by: Beat the post-holiday blues
Get a FREE limited edition SourceForge.net t-shirt from ThinkGeek.
It's fun and FREE -- well, almost....http://www.thinkgeek.com/sfshirt