mdw@git.distorted.org.uk Git - odin-cgi/blob - bin/populate-lang-table

   1 #! /usr/bin/perl
   2
   3 use lib "lib";
   4 use Odin;
   5
   6 my $db = Odin::open_db;
   7 my %newlang, %oldlang;
   8
   9 open my $fh, "-|", "highlight", "-p" or die "highlight: $!";
  10 while (<$fh>) {
  11   my ($descr, $lang) = /^(.*\S)\s*:\s*(\S+)(?:\s.*|)$/;
  12   next unless defined $lang;
  13   $newlang{$lang} = $descr;
  14 }
  15 close $fh or die "close highlight: $! $?";
  16 $newlang{"txt"} //= "Plain text";
  17
  18 Odin::xact {
  19   my $h = $db->selectall_hashref
  20     ("SELECT lang, descr FROM odin_pastebin_lang", "lang");
  21   for my $k (keys %$h) { $oldlang{$k} = $h->{$k}{descr}; }
  22   for my $lang (keys %oldlang) {
  23     if (!exists $newlang{$lang}) {
  24       print ";; delete stale language `$lang' (`$oldlang{$lang}')\n";
  25       $db->do("DELETE FROM odin_pastebin_lang WHERE lang = ?", undef, $lang);
  26     }
  27   }
  28   for my $lang (keys %newlang) {
  29     if (!exists $oldlang{$lang}) {
  30       print ";; insert new language `$lang' (`$newlang{$lang}')\n";
  31       $db->do("INSERT INTO odin_pastebin_lang (lang, descr) VALUES (?, ?)",
  32               undef, $lang, $newlang{$lang});
  33     } elsif ($oldlang{$lang} ne $newlang{$lang}) {
  34       print ";; change description for `$lang' ",
  35         "(`$oldlang{$lang}' -> `$newlang{$lang}')\n";
  36       $db->do("UPDATE odin_pastebin_lang SET descr = ? WHERE lang = ?",
  37               undef, $newlang{$lang}, $lang);
  38     }
  39   }
  40 } $db;