trAvis - MANAGER

Edit File: razor-admin

#!/usr/bin/perl -w eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' if 0; # not running under some shell ## ## I do the following. ## ## razor-admin - registers a new reporter, creates razorhome, etc.. ## ## Copyright (c) 1998, Vipul Ved Prakash. All rights reserved. ## This code is free software; you can redistribute it and/or modify ## it under the same terms as Perl itself. ## ## $Id: razor-admin,v 1.1 2005/06/16 19:45:54 rsoderberg Exp $ use strict; use Razor2::Client::Agent; my $agent = new Razor2::Client::Agent('razor-admin') or die $Razor2::Client::Agent::errstr; $agent->read_options() or die $agent->errstr ."\n"; $agent->do_conf() or die $agent->errstr ."\n"; # quiet warning my $dummy = $Razor2::Client::Agent::errstr; # # doit() will not exit # my $response = $agent->doit(); if ($response > 1) { # error print STDERR $agent->errstr; } exit $response;