Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Mon, 04 Aug 2025 01:58:11 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080328033846 location: https://web.archive.org/web/20080328033846/https://techtasks.com/code/viewbookcode/1270 server-timing: captures_list;dur=0.786310, exclusion.robots;dur=0.035985, exclusion.robots.policy;dur=0.021383, esindex;dur=0.013230, cdx.remote;dur=46.054577, LoadShardBlock;dur=289.443013, PetaboxLoader3.datanode;dur=163.068824, PetaboxLoader3.resolve;dur=75.351792 x-app-server: wwwb-app200 x-ts: 302 x-tr: 365 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=1 set-cookie: wb-p-SERVER=wwwb-app200; path=/ x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() HTTP/2 200 server: nginx date: Mon, 04 Aug 2025 01:58:12 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Fri, 28 Mar 2008 03:38:46 GMT x-archive-orig-server: Apache/2.0.61 (Unix) PHP/4.4.7 mod_ssl/2.0.61 OpenSSL/0.9.7e mod_fastcgi/2.4.2 DAV/2 SVN/1.4.2 x-archive-orig-set-cookie: _session_id=36844c017646ab8e321fd4b035d3460b; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10825 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Fri, 28 Mar 2008 03:38:46 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Mon, 15 Oct 2007 09:22:39 GMT", ; rel="prev memento"; datetime="Mon, 15 Oct 2007 09:22:39 GMT", ; rel="memento"; datetime="Fri, 28 Mar 2008 03:38:46 GMT", ; rel="next memento"; datetime="Tue, 14 Oct 2008 06:56:31 GMT", ; rel="last memento"; datetime="Thu, 20 Nov 2008 09:40:11 GMT" content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org x-archive-src: 52_2_20080328011750_crawl102-c/52_2_20080328033754_crawl102.arc.gz server-timing: captures_list;dur=0.773842, exclusion.robots;dur=0.040080, exclusion.robots.policy;dur=0.024421, esindex;dur=0.014132, cdx.remote;dur=104.526122, LoadShardBlock;dur=105.395379, PetaboxLoader3.datanode;dur=79.528947, PetaboxLoader3.resolve;dur=109.732625, load_resource;dur=97.811189 x-app-server: wwwb-app200 x-ts: 200 x-tr: 371 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=1 x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() content-encoding: gzip Toggle circular logging (Perl) - Exchange Server Cookbook

Toggle circular logging (Perl)

This code can be found in Chapter 6 of Exchange Server Cookbook

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the Perl code from this site.

# This script was originally published in the Exchange Cookbook,
# (https://www.exchangebookcook.com). Written by Paul Robichaux, 
# Missy Koslosky, and Devin Ganger. Redistributed with permission 
# of the publisher, O'Reilly & Associates.
# This script toggles circular logging on the selected database.
# ------ SCRIPT CONFIGURATION ------
use Win32::OLE;
$strServerName = '<serverName>';
# e.g. "BATMAN"	
# ------ END CONFIGURATION ---------
$theServer = Win32::OLE->new('CDOEXM.ExchangeServer');
$theSG = Win32::OLE->new('CDOEXM.StorageGroup');
$theServer->DataSource->Open($strServerName);
# Get the array list of StorageGroups, then coerce it to get the first
# SG name
$theSGArr = $theServer->StorageGroups;
$theFirstSG = theSGArr(0);
$strURL = 'LDAP://' . $theServer->DirectoryServer . '/' . $theFirstSG;
$theSG->DataSource->Open($strURL);
if ((1 == $theSG->CircularLogging)) {
    print "Circular logging is enabled; disabling it\n";
    $theSG->{CircularLogging} = 0;
}
else {
    print "Circular logging is disabled; enabling it\n";
    $theSG->{CircularLogging} = 1;
}
$theSG->DataSource->Save();
print 'Circular logging set to ' . $theSG->CircularLogging . ' for ' . $theFirstSG, "\n";

This code has been viewed 366 times.

New from the creators of TechTasks.com: StatSheet.com

Original Source | Taken Source