From b3076c5463bb66ff29ee6d3d561afa06a0c63514 Mon Sep 17 00:00:00 2001
From: stan <stan@e3e1d417-86f3-4887-817a-d78f3d33393f>
Date: Tue, 10 Dec 2002 13:33:18 +0000
Subject: [PATCH] Changes to headers and constants etc.

git-svn-id: http://svn.zoneminder.com/svn/zm/trunk@162 e3e1d417-86f3-4887-817a-d78f3d33393f
---
 scripts/zmaudit.pl.z  | 30 ++++++++++++++++++++----------
 scripts/zmfilter.pl.z | 16 ++++++++--------
 scripts/zmx10.pl.z    |  3 +--
 3 files changed, 29 insertions(+), 20 deletions(-)

diff --git a/scripts/zmaudit.pl.z b/scripts/zmaudit.pl.z
index 75fc6b855..3b3e4fd78 100755
--- a/scripts/zmaudit.pl.z
+++ b/scripts/zmaudit.pl.z
@@ -30,6 +30,22 @@
 # yet.
 #
 
+# ==========================================================================
+#
+# These are the elements you need to edit to suit your installation
+#
+# ==========================================================================
+use constant DB_NAME => "zm";
+use constant DB_USER => "zmadmin";
+use constant DB_PASS => "zmadminzm";
+use constant EVENT_PATH => "/data/zm/events";
+
+# ==========================================================================
+#
+# You shouldn't need to change anything from here downwards
+#
+# ==========================================================================
+
 use strict;
 use DBI;
 use Getopt::Long;
@@ -110,9 +126,7 @@ if ( $report && $delay )
 
 ReadMode( 'cbreak' );
 
-my $event_path = "/data/zm/events";
-
-chdir( $event_path );
+chdir( EVENT_PATH );
 
 my $fs_monitors;
 foreach my $monitor ( <*> )
@@ -130,11 +144,7 @@ foreach my $monitor ( <*> )
 	print( ", got ".int(keys(%$fs_events))." events\n" );
 }
 
-my $database = "zm";
-my $username = "zmadmin";
-my $password = "zmadminzm";
-
-my $dbh = DBI->connect( "DBI:mysql:$database", $username, $password );
+my $dbh = DBI->connect( "DBI:mysql:".DB_NAME, DB_USER, DB_PASS );
 
 my $db_monitors;
 my $sql = "select * from Monitors order by Name";
@@ -169,7 +179,7 @@ while ( my ( $fs_monitor, $fs_events ) = each(%$fs_monitors) )
 					print( "Filesystem event '$fs_monitor/$fs_event' does not exist in database" );
 					if ( confirm() )
 					{
-						qx( rm -rf $event_path/$fs_monitor/$fs_event );
+						qx( rm -rf EVENT_PATH/$fs_monitor/$fs_event );
 						sleep( $delay ) if ( $delay );
 					}
 				}
@@ -181,7 +191,7 @@ while ( my ( $fs_monitor, $fs_events ) = each(%$fs_monitors) )
 		print( "Filesystem monitor '$fs_monitor' does not exist in database" );
 		if ( confirm() )
 		{
-			qx( rm -rf $event_path/$fs_monitor );
+			qx( rm -rf EVENT_PATH/$fs_monitor );
 			sleep( $delay ) if ( $delay );
 		}
 	}
diff --git a/scripts/zmfilter.pl.z b/scripts/zmfilter.pl.z
index 1717a48c1..715ad5818 100755
--- a/scripts/zmfilter.pl.z
+++ b/scripts/zmfilter.pl.z
@@ -49,14 +49,14 @@ use constant ARCH_FORMAT => 'tar'; # This can be 'tar' or 'zip'
 use constant ARCH_COMPRESS => '0'; # Whether to compress archive files
 use constant ARCH_ANALYSE => '0'; # Whether to include the analysis files in the archive, bigger but slower
 
-use constant FTP_HOST => 'raq182.uk2net.com';
-use constant FTP_USER => 'admin';
-use constant FTP_PASS => 'w712jhw';
-use constant FTP_LOC_DIR => '/tmp/';
-use constant FTP_REM_DIR => 'transfer/';
-use constant FTP_TIMEOUT => 120;
-use constant FTP_PASSIVE => 1;
-use constant FTP_DEBUG => 0;
+use constant FTP_HOST => 'raq182.uk2net.com';	# Your ftp host
+use constant FTP_USER => 'admin';				# Your ftp username
+use constant FTP_PASS => 'w712jhw';				# Your ftp password
+use constant FTP_LOC_DIR => '/tmp/';			# The local directory in which to create upload files
+use constant FTP_REM_DIR => 'transfer/';		# The remote directory to upload to
+use constant FTP_TIMEOUT => 120;				# How long we allow the transfer to take for each file
+use constant FTP_PASSIVE => 1;					# Whether to use passive ftp
+use constant FTP_DEBUG => 0;					# Whether to switch ftp debugging on
 
 # ==========================================================================
 #
diff --git a/scripts/zmx10.pl.z b/scripts/zmx10.pl.z
index 48644b685..bc7892146 100755
--- a/scripts/zmx10.pl.z
+++ b/scripts/zmx10.pl.z
@@ -30,6 +30,7 @@
 # These are the elements you need to edit to suit your installation
 #
 # ==========================================================================
+
 use constant X10_DEVICE => '/dev/ttyS1';
 use constant X10_HOUSE_CODE => 'K';
 use constant X10_SOCK_FILE => '/tmp/zmx10.sock';
@@ -42,9 +43,7 @@ use constant X10_LOG_FILE => '/tmp/zmx10.log';
 # ==========================================================================
 
 use strict;
-
 use POSIX;
-#use DBI;
 use Socket;
 use Getopt::Long;
 use Data::Dumper;