csirac2

#!/usr/bin/perl -wT
# See bottom of file for default license and copyright information

package CSVDemo;
use strict;
use warnings;

# Adjust these variables to suit your own data/requirements
my $formname = 'System.MigrationScriptsCSVDemo.CSVDemoForm';
my ( $csvtopic, $csvfile ) =

csirac2

#!/usr/bin/perl -CSAD
# You probably want to run as perl -CSAD /tmp/test.pl
# This is a little exploration of http://perldoc.perl.org/perlunicode.html#The-"Unicode-Bug"
# See also http://stackoverflow.com/questions/6162484/why-does-modern-perl-avoid-utf-8-by-default
use utf8;
use warnings;
use strict;

my $u = 'ü';

csirac2

package UTF8Tests;
use strict;
use warnings;

# TODO: Exercise
# $Foswiki::cfg{Site}{CharSet}
# $Foswiki::cfg{UseLocale}
# $Foswiki::cfg{Site}{Locale}
# $Foswiki::cfg{Site}{Lang}
# $Foswiki::cfg{Site}{FullLang}

csirac2

# See bottom of attachment for default license and copyright information
package Foswiki::Contrib::MigrationScriptsContrib::Roles::FoswikiAddressable;

use Moose::Role;
use Assert;

use Foswiki::Func();
use Foswiki::Meta();
use Foswiki::Address();

csirac2

package CharacterTests;
use strict;
use warnings;

# Using utf8, so we can have interesting chars in the source code.
use utf8;

use FoswikiFnTestCase;
our @ISA = qw( FoswikiFnTestCase );

csirac2

var databases = db.adminCommand('listDatabases')['databases'];
var count = 0;
for (var item in databases) {
    print(databases[item]['name']);
    count = count + db.getMongo().getDB(databases[item]['name']).current.count();
}

csirac2

var databases = db.adminCommand('listDatabases')['databases'];

for (var item in databases) {
    db = db.getMongo().getDB(item['name']);
    db.current.ensureIndex({_web: 1});
    db.current.ensureIndex({_topic: 1});
    db.current.ensureIndex({'TOPICINFO.author': 1});
    db.current.ensureIndex({'TOPICINFO.date': 1});
    db.current.ensureIndex({'CREATEINFO.author': 1});
    db.current.ensureIndex({'CREATEINFO.date': 1});

csirac2

#!/usr/bin/perl -wT

use warnings;
use strict;

sub _stashText {
    my ($fragment, $map, $key) = @_;
    my $id = $map->{index};

    ASSERT(ref($map) eq 'HASH') if DEBUG;