First version of basic script.

Combines the Text::Template and Config::General
perl modules to iterate over a folder of templates,
fill them in with info from the stanzas.cfg file.

Author: jtgorman

.gitignore

@@ -1 +1,3 @@
 ezproxy-collaborate.cfg
+stanzas.cfg
+stanza.cfg

README.md

@@ -5,8 +5,10 @@ Ezproxy Collaborate is a community-shared git archive of EzProxy database stanza
 
 ##Requirements
 
-# Perl installed
-## With module Text::Template (install via `cpan Text::Template` or some other method)
+# Perl installed (list of required modules below, can use cpan tool to install)
+## Text::Template
+## Config::General
+## File::Spec (should be part of most installs)
 # EzProxy Installed
 
 ## How it works

bin/generate-configs.pl

@@ -0,0 +1,67 @@
+#!/usr/bin/env perl
+
+use strict ;
+use warnings ;
+
+use Text::Template ;
+use Config::General ;
+use File::Spec ;
+
+
+########################################
+##  Start config setup
+
+my $conf = Config::General->new('ezproxy-collaborate.cfg');
+my %config = $conf->getall ;
+
+## End of config setup
+
+########################################
+##  Start stanza config setup
+
+# first go approach will be to have all the stanza configurations in
+# one file and the templates in separate files.
+#
+# might change to have a config directory w/ skeleton files
+
+
+my $stanzas_conf =  Config::General->new('stanzas.cfg');
+my $stanzas_config_ref = { $stanzas_conf->getall } ;
+
+## End of stanza setup
+
+opendir(my $template_dir,  $config{TEMPLATE_DIR}) or die "Can't open template directory ( $config{TEMPLATE_DIR} ) $!" ;
+
+FILE: while( my $filepath = readdir( $template_dir ) ) {
+
+    if( $filepath !~ /\.template$/) {
+        next FILE ;
+    }
+
+    my $id = $filepath ;
+    $id =~ s/\.template// ;
+    
+    # Setup the template
+    my $template_filepath
+        = File::Spec->catfile( $config{ TEMPLATE_DIR },
+                               $filepath ) ;
+    my $template
+        = Text::Template->new( TYPE => 'FILE',
+                               SOURCE => $template_filepath ) ;
+    
+    my $text = $template->fill_in(  HASH => $stanzas_config_ref->{ $id }    ) ;
+
+    
+    # Setup the output file
+    my $target_filepath_init = $filepath ;
+    $target_filepath_init =~ s/\.template$/.stanza/ ;
+
+    my $target_filepath = File::Spec->catfile($config{CONFIG_DIR},
+                                           $id . '.stanza') ;
+
+    open my $target_fh, '>', $target_filepath or die "Couldn't open $target_filepath for writing $! " ;
+    
+    print $target_fh $text ;
+        
+}
+

ezproxy-collaborate.cfg.skel

@@ -0,0 +1,4 @@
+##### Script settings
+CONFIG_DIR = /usr/local/ezproxy/conf.d
+TEMPLATE_DIR = templates
+TEMPLATE_CONFIG = stanzas.cfg

stanzas.cfg.example

@@ -0,0 +1,5 @@
+<Books24x7>
+SiteIdentifier     = FakeSiteIdentifier
+TokenKey           = Your Selected Key
+TokenSignatureKey  = FakeSigKey
+</Books24x7>

templates/AccessibleArchives.template

@@ -0,0 +1,6 @@
+T Accessible Archives
+U http://www.accessible.com/
+HJ www.accessible.com
+DJ accessible.com 
+
+

templates/Books24x7.template

@@ -0,0 +1,6 @@
+Title Book24x7.com 
+URL http://library.books24x7.com/library.asp? 
+Books24x7Site {$SiteIdentifier} 
+TokenKey {$TokenKey} 
+TokenSignatureKey {$TokenSignatureKey} 
+DJ books24x7.com