#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); #################### # links to add # templates to expand templates2events( "/etc/sysconfig/madsonic" , qw( conf-madsonic bootstrap-console-save console-save post-upgrade)); templates2events( "/etc/httpd/conf/httpd.conf" , qw( conf-madsonic )); # services to launch on event safe_symlink("restart", "root/etc/e-smith/events/conf-madsonic/services2adjust/madsonic"); safe_symlink("restart", "root/etc/e-smith/events/conf-madsonic/services2adjust/httpd-e-smith"); my $event= "smeserver-madsonic-update"; safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/madsonic"); safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith"); safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/rsyslog"); templates2events( "/etc/sysconfig/madsonic" , $event); templates2events( "/etc/httpd/conf/httpd.conf" , $event); templates2events( "/etc/rsyslog.conf" , $event); event_actions( $event, "madsonic-fixperms" => "05"); use esmith::Build::Backup qw(:all); backup_includes("smeserver-madsonic", qw( /var/madsonic/db/ /var/madsonic/madsonic.properties /var/madsonic/madsonic.log /var/madsonic/madsonic_sh.log ));