Updated confgen to use local perl paths if set
git-svn-id: http://svn.zoneminder.com/svn/zm/trunk@2998 e3e1d417-86f3-4887-817a-d78f3d33393f
This commit is contained in:
stan
parent
3c07382931
commit
46b92e6f51
|
|
@ -341,6 +341,7 @@ AC_SUBST(EXTRA_PERL_LIB)
|
||||||
|
|
||||||
AC_CONFIG_FILES([Makefile
|
AC_CONFIG_FILES([Makefile
|
||||||
zm.conf
|
zm.conf
|
||||||
|
zmconfgen.pl
|
||||||
db/Makefile
|
db/Makefile
|
||||||
db/zm_create.sql
|
db/zm_create.sql
|
||||||
scripts/Makefile
|
scripts/Makefile
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,189 @@
|
||||||
|
#!/usr/bin/perl -w
|
||||||
|
#
|
||||||
|
# ==========================================================================
|
||||||
|
#
|
||||||
|
# Zone Minder Configuration Script, $Date$, $Revision$
|
||||||
|
# Copyright (C) 2001-2008 Philip Coombes
|
||||||
|
#
|
||||||
|
# This program is free software; you can redistribute it and/or
|
||||||
|
# modify it under the terms of the GNU General Public License
|
||||||
|
# as published by the Free Software Foundation; either version 2
|
||||||
|
# of the License, or (at your option) any later version.
|
||||||
|
#
|
||||||
|
# This program is distributed in the hope that it will be useful,
|
||||||
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
# GNU General Public License for more details.
|
||||||
|
#
|
||||||
|
# You should have received a copy of the GNU General Public License
|
||||||
|
# along with this program; if not, write to the Free Software
|
||||||
|
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||||
|
#
|
||||||
|
# ==========================================================================
|
||||||
|
#
|
||||||
|
# This script is used to generate initial config headers and database data.
|
||||||
|
#
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
@EXTRA_PERL_LIB@
|
||||||
|
use ZoneMinder::ConfigAdmin qw( :data );
|
||||||
|
|
||||||
|
$| = 1;
|
||||||
|
|
||||||
|
my $config_header = "src/zm_config_defines.h";
|
||||||
|
my $config_sql = "db/zm_create.sql.in";
|
||||||
|
|
||||||
|
generateConfigFiles();
|
||||||
|
|
||||||
|
exit;
|
||||||
|
|
||||||
|
sub generateConfigFiles
|
||||||
|
{
|
||||||
|
generateConfigHeader();
|
||||||
|
generateConfigSQL();
|
||||||
|
}
|
||||||
|
|
||||||
|
sub generateConfigHeader
|
||||||
|
{
|
||||||
|
print( "Generating '$config_header'\n" );
|
||||||
|
open( CFG_HDR_FILE, ">$config_header" ) or die( "Can't open '$config_header' for writing" );
|
||||||
|
print( CFG_HDR_FILE "// The file is autogenerated by zmconfgen.pl\n" );
|
||||||
|
print( CFG_HDR_FILE "// Do not edit this file as any changes will be overwritten\n\n" );
|
||||||
|
my $last_id = 0;
|
||||||
|
my $define_list = "";
|
||||||
|
my $declare_list = "";
|
||||||
|
my $assign_list = "";
|
||||||
|
foreach my $option ( @options )
|
||||||
|
{
|
||||||
|
next if ( !defined($option->{id}) );
|
||||||
|
|
||||||
|
my $opt_id = $option->{id};
|
||||||
|
my $opt_name = $option->{name};
|
||||||
|
my $opt_type = $option->{type};
|
||||||
|
my $var_name = substr( lc($opt_name), 3 );
|
||||||
|
|
||||||
|
$define_list .= sprintf( "#define $opt_name $opt_id\n" );
|
||||||
|
|
||||||
|
$declare_list .= sprintf( "\t" );
|
||||||
|
if ( $opt_type->{db_type} eq 'boolean' )
|
||||||
|
{
|
||||||
|
$declare_list .= sprintf( "bool " );
|
||||||
|
}
|
||||||
|
elsif ( $opt_type->{db_type} eq 'integer' || $opt_type->{db_type} eq 'hexadecimal' )
|
||||||
|
{
|
||||||
|
$declare_list .= sprintf( "int " );
|
||||||
|
}
|
||||||
|
elsif ( $opt_type->{db_type} eq 'decimal' )
|
||||||
|
{
|
||||||
|
$declare_list .= sprintf( "double " );
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$declare_list .= sprintf( "const char *" );
|
||||||
|
}
|
||||||
|
$declare_list .= sprintf( $var_name.";\\\n" );
|
||||||
|
|
||||||
|
$assign_list .= sprintf( "\t" );
|
||||||
|
$assign_list .= sprintf( $var_name." = " );
|
||||||
|
if ( $opt_type->{db_type} eq 'boolean' )
|
||||||
|
{
|
||||||
|
$assign_list .= sprintf( "(bool)" );
|
||||||
|
}
|
||||||
|
elsif ( $opt_type->{db_type} eq 'integer' || $opt_type->{db_type} eq 'hexadecimal' )
|
||||||
|
{
|
||||||
|
$assign_list .= sprintf( "(int)" );
|
||||||
|
}
|
||||||
|
elsif ( $opt_type->{db_type} eq 'decimal' )
|
||||||
|
{
|
||||||
|
$assign_list .= sprintf( "(double) " );
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$assign_list .= sprintf( "(const char *)" );
|
||||||
|
}
|
||||||
|
$assign_list .= sprintf( "config.Item( ".$opt_name." );\\\n" );
|
||||||
|
|
||||||
|
$last_id = $option->{id};
|
||||||
|
}
|
||||||
|
print( CFG_HDR_FILE $define_list."\n\n" );
|
||||||
|
print( CFG_HDR_FILE "#define ZM_MAX_CFG_ID $last_id\n\n" );
|
||||||
|
print( CFG_HDR_FILE "#define ZM_CFG_DECLARE_LIST \\\n" );
|
||||||
|
print( CFG_HDR_FILE $declare_list."\n\n" );
|
||||||
|
print( CFG_HDR_FILE "#define ZM_CFG_ASSIGN_LIST \\\n" );
|
||||||
|
print( CFG_HDR_FILE $assign_list."\n\n" );
|
||||||
|
close( CFG_HDR_FILE );
|
||||||
|
}
|
||||||
|
|
||||||
|
sub generateConfigSQL
|
||||||
|
{
|
||||||
|
print( "Updating '$config_sql'\n" );
|
||||||
|
my $config_sql_temp = $config_sql.".temp";
|
||||||
|
open( CFG_SQL_FILE, "<$config_sql" ) or die( "Can't open '$config_sql' for reading" );
|
||||||
|
open( CFG_TEMP_SQL_FILE, ">$config_sql_temp" ) or die( "Can't open '$config_sql_temp' for writing" );
|
||||||
|
while ( my $line = <CFG_SQL_FILE> )
|
||||||
|
{
|
||||||
|
last if ( $line =~ /^-- This section is autogenerated/ );
|
||||||
|
print( CFG_TEMP_SQL_FILE $line );
|
||||||
|
}
|
||||||
|
close( CFG_SQL_FILE );
|
||||||
|
|
||||||
|
print( CFG_TEMP_SQL_FILE "-- This section is autogenerated by zmconfgen.pl\n" );
|
||||||
|
print( CFG_TEMP_SQL_FILE "-- Do not edit this file as any changes will be overwritten\n" );
|
||||||
|
print( CFG_TEMP_SQL_FILE "--\n\n" );
|
||||||
|
print( CFG_TEMP_SQL_FILE "delete from Config;\n\n" );
|
||||||
|
foreach my $option ( @options )
|
||||||
|
{
|
||||||
|
#print( $option->{name}."\n" ) if ( !$option->{category} );
|
||||||
|
$option->{db_type} = $option->{type}->{db_type};
|
||||||
|
$option->{db_hint} = $option->{type}->{hint};
|
||||||
|
$option->{db_pattern} = $option->{type}->{pattern};
|
||||||
|
$option->{db_format} = $option->{type}->{format};
|
||||||
|
if ( $option->{db_type} eq "boolean" )
|
||||||
|
{
|
||||||
|
$option->{db_value} = ($option->{value} eq "yes")?"1":"0";
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$option->{db_value} = $option->{value};
|
||||||
|
}
|
||||||
|
if ( $option->{name} eq "ZM_DYN_CURR_VERSION" || $option->{name} eq "ZM_DYN_DB_VERSION" )
|
||||||
|
{
|
||||||
|
$option->{db_value} = '@VERSION@';
|
||||||
|
}
|
||||||
|
if ( my $requires = $option->{requires} )
|
||||||
|
{
|
||||||
|
$option->{db_requires} = join( ";", map { my $value = $_->{value}; $value = ($value eq "yes")?1:0 if ( $options_hash{$_->{name}}->{db_type} eq "boolean" ); ( "$_->{name}=$value" ) } @$requires );
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$option->{db_requires} = "";
|
||||||
|
}
|
||||||
|
printf( CFG_TEMP_SQL_FILE
|
||||||
|
"insert into Config set Id = %d, Name = '%s', Value = '%s', Type = '%s', DefaultValue = '%s', Hint = '%s', Pattern = '%s', Format = '%s', Prompt = '%s', Help = '%s', Category = '%s', Readonly = '%s', Requires = '%s';\n",
|
||||||
|
$option->{id},
|
||||||
|
$option->{name},
|
||||||
|
addSlashes($option->{db_value}),
|
||||||
|
$option->{db_type},
|
||||||
|
addSlashes($option->{default}),
|
||||||
|
addSlashes($option->{db_hint}),
|
||||||
|
addSlashes($option->{db_pattern}),
|
||||||
|
addSlashes($option->{db_format}),
|
||||||
|
addSlashes($option->{description}),
|
||||||
|
addSlashes($option->{help}),
|
||||||
|
$option->{category},
|
||||||
|
$option->{readonly}?1:0,
|
||||||
|
$option->{db_requires}
|
||||||
|
);
|
||||||
|
}
|
||||||
|
print( CFG_TEMP_SQL_FILE "\n" );
|
||||||
|
close( CFG_TEMP_SQL_FILE );
|
||||||
|
|
||||||
|
rename( $config_sql_temp, $config_sql ) or die( "Can't rename '$config_sql_temp' to '$config_sql': $!" );
|
||||||
|
}
|
||||||
|
|
||||||
|
sub addSlashes
|
||||||
|
{
|
||||||
|
my $string = shift;
|
||||||
|
$string =~ s|(['"])|\\$1|g;
|
||||||
|
return( $string );
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue