chiark - git - mdw - 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 if !defined $lang or $lang eq "txt";
  13   $newlang{"hl:$lang"} = $descr;
  14 }
  15 close $fh or die "close highlight: $! $?";
  16 $newlang{"txt"} = "Plain text";
  17 $newlang{"md"} = "Markdown";
  18
  19 Odin::xact {
  20   my $h = $db->selectall_hashref
  21     ("SELECT lang, descr FROM odin_pastebin_lang", "lang");
  22   for my $k (keys %$h) { $oldlang{$k} = $h->{$k}{descr}; }
  23   for my $lang (keys %oldlang) {
  24     if (!exists $newlang{$lang}) {
  25       print ";; delete stale language `$lang' (`$oldlang{$lang}')\n";
  26       $db->do("DELETE FROM odin_pastebin_lang WHERE lang = ?", undef, $lang);
  27     }
  28   }
  29   for my $lang (keys %newlang) {
  30     if (!exists $oldlang{$lang}) {
  31       print ";; insert new language `$lang' (`$newlang{$lang}')\n";
  32       $db->do("INSERT INTO odin_pastebin_lang (lang, descr) VALUES (?, ?)",
  33               undef, $lang, $newlang{$lang});
  34     } elsif ($oldlang{$lang} ne $newlang{$lang}) {
  35       print ";; change description for `$lang' ",
  36         "(`$oldlang{$lang}' -> `$newlang{$lang}')\n";
  37       $db->do("UPDATE odin_pastebin_lang SET descr = ? WHERE lang = ?",
  38               undef, $newlang{$lang}, $lang);
  39     }
  40   }
  41 } $db;