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,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 $dbh = DBI->connect( "DBI:mysql:".DB_NAME, DB_USER, DB_PASS );
-my $username = "zmadmin";
-my $password = "zmadminzm";
-
-my $dbh = DBI->connect( "DBI:mysql:$database", $username, $password );
 
 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 );
 		}
 	}

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_HOST => 'raq182.uk2net.com';	# Your ftp host
-use constant FTP_USER => 'admin';
+use constant FTP_USER => 'admin';				# Your ftp username
-use constant FTP_PASS => 'w712jhw';
+use constant FTP_PASS => 'w712jhw';				# Your ftp password
-use constant FTP_LOC_DIR => '/tmp/';
+use constant FTP_LOC_DIR => '/tmp/';			# The local directory in which to create upload files
-use constant FTP_REM_DIR => 'transfer/';
+use constant FTP_REM_DIR => 'transfer/';		# The remote directory to upload to
-use constant FTP_TIMEOUT => 120;
+use constant FTP_TIMEOUT => 120;				# How long we allow the transfer to take for each file
-use constant FTP_PASSIVE => 1;
+use constant FTP_PASSIVE => 1;					# Whether to use passive ftp
-use constant FTP_DEBUG => 0;
+use constant FTP_DEBUG => 0;					# Whether to switch ftp debugging on
 
 # ==========================================================================
 #

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;