3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-22 03:49:29 +01:00

Remove obsolete generate_undos.pl script

This commit is contained in:
Pragmatic Software 2021-08-15 19:44:21 -07:00
parent d40d602b79
commit 31ae34e17e

View File

@ -1,63 +0,0 @@
#!/usr/bin/env perl
# generate initial .undo file for existing factoids
# FIXME all paths throughout this file are hardcoded...
use warnings;
use strict;
use Storable;
require "../PBot/DualIndexHashObject.pm";
sub safe_filename {
my $name = shift;
my $safe = '';
while ($name =~ m/(.)/gms) {
if ($1 eq '&') {
$safe .= '&';
} elsif ($1 eq '/') {
$safe .= '&fslash;';
} else {
$safe .= $1;
}
}
return $safe;
}
my $factoids = PBot::DualIndexHashObject->new(name => 'Factoids', filename => 'factoids');
$factoids->load;
foreach my $channel (sort keys %{ $factoids->hash }) {
foreach my $trigger (sort keys %{ $factoids->hash->{$channel} }) {
my $channel_path = $channel;
$channel_path = 'global' if $channel_path eq '.*';
print "Checking [$channel_path] [$trigger] ... ";
my $channel_path_encoded = safe_filename $channel_path;
my $trigger_encoded = safe_filename $trigger;
my $undo = eval { retrieve("factlog/$trigger_encoded.$channel_path_encoded.undo"); };
if (not $undo) {
print "creating initial undo state to [$channel_path_encoded] [$trigger_encoded]\n";
$undo = { idx => 0, list => [ $factoids->hash->{$channel}->{$trigger} ] };
eval {
store($undo, "factlog/$trigger_encoded.$channel_path_encoded.undo");
};
if ($@) {
print "error: $@\n";
}
} else {
print "good.\n";
}
}
}
print "Done.\n";