releasesystem

 view release on metacpan or  search on metacpan

Autodoc/dev_rls_tool_doc.html  view on Meta::CPAN

        # Make sure it makes the rounds
        $info{upload} = 'yes';
        # Lastly...
        $info{user} = $opts{user};
        # Propagate debugging information
        $info{debug} = 'yes' if ($opts{debug});

        #
        # Set up a proxy, if needed
        #
        $ENV{http_proxy} = $CONFIG{HTTP_PROXY} || $ENV{http_proxy} || '';

        #
        # Effect the transfer of the package. The conditional here is solely
        # because of the need to support releases to www.hp.com
        #
        # 990702: There are valid cases where one may wish to run the tool
        #         just to generate the tar file and release ticked. Check for
        #         this via $opts{noxfer}.
        #
        unless ($opts{noxfer})

Docs/devmgr/devmgr.html  view on Meta::CPAN

<b>HALTFILE_PREFIX</b></dt>

<dd>
Default: <tt>etc/halt-</tt></dd>

<br>This prefix is used when checking for "halt files" pertaining to the
command about to be run. Halt files are explained earlier. If the value
is not an absolute path, it is considered relative to the home directory
of the <b><tt>USER</tt></b> defined below.
<dt>
<b>HTTP_PROXY</b></dt>

<dd>
Default: <tt>http://web-proxy:8088</tt></dd>

<br>When the new-generation tools were being designed, <tt>HTTP</tt> file
upload was favored over <tt>FTP</tt>-based transmission, since the password
and user name were of less consequence if compromised. Due to limitations
related to the <tt>HTTP</tt>-based solution, this is gradually being phased
out and the original <tt>FTP</tt>-based approach is now preferred. This
parameter is used to define a proxy for the <tt>HTTP</tt> approach, if

devmgr/dev_release.cfg  view on Meta::CPAN

CVS             = /opt/ims/bin/cvs
TAR             = /opt/ims/bin/tar
FTP		= /opt/ims/bin/ftp
BUILDLIST       = .buildlist
TOPICLIST       = .topiclist
WEBLIST         = .weblist
RELEASE         = .release
HALTFILE_PREFIX = etc/halt-
OWNER           = idsweb
GROUP           = idsweb
HTTP_PROXY	= http://web-proxy:8088

devmgr/dev_rls_tool  view on Meta::CPAN

        # Make sure it makes the rounds
        $info{upload} = 'yes';
        # Lastly...
        $info{user} = $opts{user};
        # Propagate debugging information
        $info{debug} = 'yes' if ($opts{debug});

        #
        # Set up a proxy, if needed
        #
        $ENV{http_proxy} = $CONFIG{HTTP_PROXY} || $ENV{http_proxy} || '';

        #
        # Effect the transfer of the package. The conditional here is solely
        # because of the need to support releases to www.hp.com
        #
        # 990702: There are valid cases where one may wish to run the tool
        #         just to generate the tar file and release ticked. Check for
        #         this via $opts{noxfer}.
        #
        unless ($opts{noxfer})

devmgr/man4/dev_release.cfg.pod  view on Meta::CPAN

This defines the user ID that internal and system files should be owned by.
This should be the ID under which all the tools run, so that access to the
files is always a given.

=item GROUP (idsweb)

As above, this defines a group ID for ownership of any systems files or
internal files.

=item HTTP_PROXY (http://web-proxy:8088)

When HTTP file upload (the default) is used to send a release package to a
server, this value is used as the proxy for the connection request. Without
this it would not be possible to make the connections beyond the corporate
firewall.

=back

=head1 CAVEATS

utils/sysmonitor/sysmonitord  view on Meta::CPAN

else #standard values
{
  $STARTUP_SLEEP = 60 * 10;  # 10 minutes
  $SLEEP_TIME    = 60 * 3;   #  3 minutes 
  $CONFIG_FILE   = "/opt/ims/local/sysmonitor/syscheck.rc";
  $SYSCHECK_LOG  = "/opt/ims/local/sysmonitor/log";
  $PID_FILE      = "/opt/ims/local/sysmonitor/pid";
}

# Uncomment this only if running *inside* the firewall
# $HTTP_PROXY = 'http://web_proxy:8088';

$PS         = '/bin/ps -ef ';
$HOSTNAME   = hostname;

# $NO_PROXY   = 'hp.com';

#Parameters for config file (1st on line is id, these below follow)
$SEMAPHORE_PARAMETER       = 0;
$REGEX_PARAMETER           = 1;
$URL_PARAMETER             = 2;  

utils/sysmonitor/sysmonitord  view on Meta::CPAN

}

###############################################################
sub get_url_status
{
  my ($url, $regex) = @_;
  my ($ua, $request, $response);

  $ua = new LWP::UserAgent;

  $ua->proxy (('http'), $HTTP_PROXY) if $HTTP_PROXY;
  $ua->no_proxy ($NO_PROXY) if $NO_PROXY;

  $request = new HTTP::Request 'GET', $url;

  eval {$response = $ua->request ($request);};
  #eval is a hack to stop timeout from dieing in the program...
  #(which is called somewhere in IO::Select, I think...)

  #print "error\n" if $response->is_error ();