view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.26 2012.02.16

    - Add minimal search capability
    - The special links now need [[ ]] instead of [ ]
    - Preview button
    - Table editor
    - Fix show history and allow user to promote older version.

v0.25 2011.12.11
    - use File::Find::Rule to chmod 0644 files before trying
      to overwrite them during installation

v0.24 2011.12.08

    - Add RSS feed with basic testing (#30)
    - integrated the CLEditor Javascript based html editor (#15)

v0.23 2011.11.20

    - Eliminate duplicate files from distribution

script/dwimmer_admin.pl  view on Meta::CPAN

# die $dist_dir;

my $db_dir = File::Spec->catdir($opt{root}, 'db');
mkpath $db_dir if not -e $db_dir;

if (not $opt{dbonly}) {
    foreach my $dir (qw(views public bin environments)) {
        my $from = File::Spec->catdir( $dist_dir, $dir );
        my $to   = File::Spec->catdir( $opt{root}, $dir );
		print "dircopy $from $to\n";
		chmod 0644, File::Find::Rule->file()->in($to) if -d $to;
        File::Copy::Recursive::dircopy( $from, $to ) or die $!;
    }
	my $from = File::Spec->catdir( $dist_dir, 'config.yml');
    my $to   = File::Spec->catdir( $opt{root} );
	print "fcopy $from $to\n";
	chmod 0644, File::Find::Rule->file()->in($to) if -d $to;
    File::Copy::Recursive::fcopy( $from, $to ) or die $!;
}

# backup the database
if ($opt{upgrade}) {
    my $db_dir = File::Spec->catdir($opt{root}, 'db');
    my $dbfile = File::Spec->catfile( $db_dir, 'dwimmer.db' );
    my $time = time;
    if (-e $dbfile) {
        File::Copy::Recursive::fcopy($dbfile, "$dbfile.$time");