tCMS/bin/migrate6.pl

#!/usr/bin/env perl

# Display names

use strict;
use warnings;

use FindBin;

use lib "$FindBin::Bin/../lib";

use Trog::SQLite;

sub _dbh {
    my $file   = 'schema/auth.schema';
    my $dbname = "config/auth.db";
    return Trog::SQLite::dbh( $file, $dbname );
}

my $dbh = _dbh();

$dbh->do("ALTER TABLE user ADD COLUMN display_name TEXT DEFAULT NULL;");

# Update all the profile type posts to have correct display names
use Trog::Auth;
use JSON::MaybeXS;
use File::Slurper;
use URI::Escape;
use Data::Dumper;

my $global_changes;
opendir( my $dh, 'data/files' );
while ( my $entry = readdir $dh ) {
    my $fname = "data/files/$entry";
    next unless -f $fname;
    my $contents = File::Slurper::read_binary($fname);
    my $decoded  = JSON::MaybeXS::decode_json($contents);
    next unless List::Util::any { $_->{is_profile} } @$decoded;

    # If the title on the profile post responsds to a username, then let's change that to a display name
    my $made_changes;
    foreach my $revision (@$decoded) {
        my $user         = $revision->{title};
        my $display_name = Trog::Auth::username2display($user);
        next unless $display_name;
        print "converting $user to display name $display_name\n";
        $revision->{title}      = $display_name;
        $revision->{local_href} = "/users/$display_name";
        $made_changes           = 1;
    }
    next unless $made_changes;

    print "Writing changes to $fname\n";
    my $encoded = JSON::MaybeXS::encode_json($decoded);
    File::Slurper::write_binary( $fname, $encoded );

    # Next, waste and rebuild the posts index for these user posts
    $global_changes = 1;
}
print "Changes made.  Please rebuild the posts index.\n" if $global_changes;