From 085c9eb95d5b559634a1751f55c21c546164b04f Mon Sep 17 00:00:00 2001
From: Joe Rayhawk <jrayhawk@cobain.omgwallhack.org>
Date: Sat, 3 Jul 2010 18:26:00 -0700
Subject: Notes: ikiwiki setup mangling: new

---
 notes/ikiwiki_setup_mangling.mdwn | 45 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 notes/ikiwiki_setup_mangling.mdwn

diff --git a/notes/ikiwiki_setup_mangling.mdwn b/notes/ikiwiki_setup_mangling.mdwn
new file mode 100644
index 0000000..cfc174c
--- /dev/null
+++ b/notes/ikiwiki_setup_mangling.mdwn
@@ -0,0 +1,45 @@
+This is an example of how to take an Ikiwiki setup file and mangle it
+programmatically. In my case, I'm running it on the fly for use with
+`| sudo -u ikiwiki ikiwiki --setup - --rebuild --verbose` in order to strip out
+the cgi-related functions.
+    
+    #!/usr/bin/perl
+    
+    use strict;
+    use warnings;
+    
+    package IkiWiki::Setup::Standard;
+    
+    $INC{"IkiWiki/Setup/Standard.pm"} = "/fake/path";
+    
+    use Data::Dumper qw( );
+    
+    sub import {
+      my ( $class, $config ) = @_;
+    
+    #  foreach my $key ( grep { /^[^aeiou]/i } keys %{$config} ) {
+    #    delete $config->{$key};
+    #  };
+    
+      delete $config->{cgiurl};
+      delete $config->{diffurl};
+      delete $config->{historyurl};
+      delete $config->{wrappers};
+    
+      # delete cgi-relevant plugins
+      @{$config->{add_plugins}} = grep(!/^(wmd|httpauth)$/, @{$config->{add_plugins}});
+    
+      push(@{$config->{disable_plugins}}, 'recentchanges');
+    
+      $config->{destdir} = '/srv/www/www.tovatest.com';
+      $config->{url} = 'http://www.tovacompany.com';
+      
+    
+      my $newconfig = Data::Dumper->new( [ $config ] );
+      $newconfig->Terse( 1 );
+    
+      print "#!/usr/bin/perl\n\nuse IkiWiki::Setup::Standard " . $newconfig->Dump( ) . ";\n";
+    
+    };
+    
+    do "/srv/ikiwiki/tovawiki.setup";
-- 
cgit v1.2.3