EekBoek

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

1.05.00	2009-10-09 17:50

	* !!! SNAPSHOT !!! SNAPSHOT !!! SNAPSHOT !!!

	* (GUI) Admin setup wizard.

	* Strafbankje voor balansrekeningen.

	* Fix problem dat 'privé' niet wordt gematched als
	  content-type = utf8 en $cfg->unicode.

1.04.04	2009-06-10 12:13

	* Bugfix voor --createsampleconfig .

	* Bugfix voor --createsampledb .

1.04.03	2009-04-03 12:18

	* Consolidatie. Geen wijzigingen.

lib/EB/Shell/DeLuxe.pm  view on Meta::CPAN

    my $line;
    my $pre = "";
    while ( 1 ) {
	$line = $rl->();
	unless ( $line ) {
	    warn("?"._T("Vervolgregel ontbreekt in de invoer.")."\n") if $pre;
	    return;
	}

	if ( $line =~ /^\# \s*
		       content-type: \s*
                       text (?: \s* \/ \s* plain)? \s* ; \s*
                       charset \s* = \s* (\S+) \s* $/ix ) {

	    my $charset = lc($1);
	    if ( $charset =~ /^(?:utf-?8)$/i ) {
		next;
	    }
	    die("?"._T("Invoer moet Unicode (UTF-8) zijn.")."\n");
	}

lib/EB/Tools/Schema.pm  view on Meta::CPAN

sub load_schema1 {
    my ($rl) = shift;

    init_vars();
    my $scanner;		# current scanner

    %std = map { $_ => 0 }
      qw(btw_ok btw_vh winst crd deb btw_il btw_vl btw_ih btw_vp btw_ip btw_va btw_ia);
    while ( $_ = $rl->() ) {
	if ( /^\# \s*
	      content-type: \s*
              text (?: \s* \/ \s* plain)? \s* ; \s*
              charset \s* = \s* (\S+) \s* $/ix ) {
	    my $charset = lc($1);
	    if ( $charset =~ /^(?:utf-?8)$/i ) {
		next;
	    }
	    error(_T("Invoer moet Unicode (UTF-8) zijn.")."\n");
	}

	my $s = "".$_;

lib/EB/Tools/Schema.pm  view on Meta::CPAN

sub load_schema2 {
    my ($rl) = shift;

    my $scanner;		# current scanner
    $max_hvd = 9;
    $max_vrd = 99;

    while ( $_ = $rl->() ) {
	if ( /^\# \s*
	      content-type: \s*
              text (?: \s* \/ \s* plain)? \s* ; \s*
              charset \s* = \s* (\S+) \s* $/ix ) {
	    my $charset = lc($1);
	    if ( $charset =~ /^(?:utf-?8)$/i ) {
		next;
	    }
	    error(_T("Invoer moet Unicode (UTF-8) zijn.")."\n");
	}

	my $s = "".$_;