ZaneYork
/
zoneminder
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changes to headers and constants etc. 

git-svn-id: http://svn.zoneminder.com/svn/zm/trunk@162 e3e1d417-86f3-4887-817a-d78f3d33393f
This commit is contained in:
stan 2002-12-10 13:33:18 +00:00
parent 0fedf9eb92
commit b3076c5463
3 changed files with 29 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
scripts/zmaudit.pl.z
View File

@ -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 );
}
}

16
scripts/zmfilter.pl.z
View File

@ -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
# ==========================================================================
#

3
scripts/zmx10.pl.z
View File

@ -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;