view tools/bins_txt2xml @ 11:8b62360dc2a5 default tip

Adding notes, cloning edit-gui
author Peter Gervai <grin@grin.hu>
date Sun, 02 Nov 2008 16:29:52 +0100 (2008-11-02)
parents a84c32f131df
children
line wrap: on
line source
#!/usr/bin/perl -w


use strict;

my $verbose=1;

my $bins_edit="bins_edit";

sub readTxt{
  my $file=shift;
  my %hash;

  if (! open (FILE, $file)) {
    print "Warning: cannot open file '$file' for reading ($!), skiping.";
    return 1;
  }

  my $tag;
  my $value="";
 LINE: while (<FILE>) {
    chomp;
    next LINE if /^#/;          #discard comments
    next LINE if /^\s*$/;	#ignore total whitespace
    s/^\s+//;
    s/\s+$//;
    print "    Reading line '$_'\n" if ($verbose >= 3);
    if ($tag) {
      if (m%</$tag>%) {
	print "   Found end tag </$tag>, " if ($verbose >= 2);
	chomp($value);
	$hash{$tag} = $value;
	print "value is '$hash{$tag}'\n" if ($verbose >= 2);
	$tag   = "";
	$value = "";
      } else {
	$value .= $_."\n";
      }
    } elsif (m/<\w+>/) {
      $tag = $_;
      $tag =~ s/<(\w+)>/$1/;
      print "   Found begin tag <$tag>\n" if ($verbose >= 2);
    }
  }
  close (FILE) || bail ("can't close $file  ($!)");
  return %hash;
}


sub processFile{
  my $file = shift;
  my $album = shift; # -a if album, empty string otherwise

  my %hash = readTxt($file);

  my $commandLine;
  if ($file =~ m%/album.txt$%) {
    $file =~ s%/album.txt$%/.%;
    $commandLine="$bins_edit --html --album ";
  } else {
    $file =~ s/.txt$/.xml/;
    $commandLine="$bins_edit --html ";
  }
  $commandLine .= "-v " foreach (2..$verbose);
  my $tagName;
  my $tagValue;
  while ( ($tagName, $tagValue) = each(%hash) ) {
    $tagValue =~ s/\'/\'\\\'\'/g;
    $commandLine .= "-g $tagName='$tagValue' "
  }
  $commandLine .= "$file";

  print " Executing ?$commandLine?" if ($verbose >= 3);
  system($commandLine);
}

sub main {
  my $dir = shift;

  print "Processing directory '$dir'...\n" if ($verbose >= 1);

  if (!opendir(DIR, "$dir")) {
    print ("Warning: can't open dir $dir: $!\n");
    return;
  }
  my @files = grep { !/^\./ } readdir(DIR);
  closedir DIR;

  foreach my $file (@files) {
    if (-d $dir."/".$file) {
      main ($dir."/".$file)
    } elsif ($file =~ m/^album.txt$/) {
      processFile($dir."/".$file, "-a");
    } elsif ($file =~ m/.txt$/) {
      processFile($dir."/".$file, "");
    }
  }
}

main($ARGV[0]);