Maplat

 view release on metacpan or  search on metacpan

Examples/helloworld/webgui_cmd.pl  view on Meta::CPAN

# MAPLAT  (C) 2008-2009 Rene Schickbauer
# Developed under Artistic license
# for Magna Powertrain Ilz

use strict;
use warnings;

BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

use Maplat::Web;
use Maplat::Web::HelloWorld;
use XML::Simple;
use Time::HiRes qw(sleep usleep);

use Maplat::Helpers::Logo;
our $APPNAME = "Maplat Webgui";

Examples/helloworld/worker_cmd.pl  view on Meta::CPAN

# MAPLAT  (C) 2008-2009 Rene Schickbauer
# Developed under Artistic license
# for Magna Powertrain Ilz

use strict;
use warnings;

BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

use Maplat::Worker;
use XML::Simple;

use Maplat::Helpers::Logo;
our $APPNAME = "Maplat Worker";
our $VERSION = "2009-12-09";
MaplatLogo($APPNAME, $VERSION);

Examples/helloworld_windowsservice/build.pl  view on Meta::CPAN

# Developed under Artistic license
# for Magna Powertrain Ilz

use strict;
use warnings;

use Sys::Hostname;

BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}
use Date::Manip qw(Date_Init UnixDate);

sub getClasses($);
sub runCommand(%);
sub runSimpleCommand(%);
sub runService(%);
sub doBuild($);
sub createBuildNumber(%);

Examples/helloworld_windowsservice/maplat_svc.pl  view on Meta::CPAN

# Note: This functionality is only available if the Perl Dev Kit is
# installed. See: http://www.ActiveState.com/Products/Perl_Dev_Kit/
#

package PerlSvc;
use strict;
use warnings;

BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

use XML::Simple;
use Time::HiRes qw(sleep usleep);
use MaplatSVCWin;
use Getopt::Long;

Examples/helloworld_windowsservice/webgui_cmd.pl  view on Meta::CPAN

# MAPLAT  (C) 2008-2009 Rene Schickbauer
# Developed under Artistic license
# for Magna Powertrain Ilz

use strict;
use warnings;

BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

use Maplat::Web;
use XML::Simple;
use Time::HiRes qw(sleep usleep);

use Maplat::Helpers::Logo;
our $APPNAME = "Maplat Webgui";
our $VERSION = "2009-12-09";

Examples/helloworld_windowsservice/worker_cmd.pl  view on Meta::CPAN

# MAPLAT  (C) 2008-2009 Rene Schickbauer
# Developed under Artistic license
# for Magna Powertrain Ilz

use strict;
use warnings;

BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

use Maplat::Worker;
use XML::Simple;

use Maplat::Helpers::Logo;
our $APPNAME = "Maplat Worker";
our $VERSION = "2009-12-09";
MaplatLogo($APPNAME, $VERSION);

lib/Maplat/Helpers/DateStrings.pm  view on Meta::CPAN

    # calculate some variable date and time strings
    
    # atm, we need to run only once a day, so return quickly
    # it is the same date as last run
    my ($currentDate, undef) = getDateAndTime();
    if($timemap_updated eq $currentDate) {
        return;
    }
    $timemap_updated = $currentDate;
    
    Date_Init("TZ=CET");
    my ($sec,$min, $hour, $mday,$mon, $year, $wday,$ yday, $isdst) = getmylocaltime();
    $year += $YEARBASEOFFSET;
    $mon += 1;
    
    my $nextyear = $year+1;
    my $lastyear = $year-1;
    
    # a number of variable dates
    my %vardates = (
                    "sysadmin day"          => "last friday in june",

t/01-workercompile.t  view on Meta::CPAN

# `make test'. After `make install' it should work as `perl Maplat.t'

use strict;
use warnings;

#########################

# There is currently a problem under Windows with Date::Manip on
# certain non-english installations of XP (and possible others).
#
# So we set our time zone to CET
BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::More tests => 1;
BEGIN { use_ok('Maplat::Worker') };

t/02-webguicompile.t  view on Meta::CPAN

# `make test'. After `make install' it should work as `perl Maplat.t'

use strict;
use warnings;

#########################

# There is currently a problem under Windows with Date::Manip on
# certain non-english installations of XP (and possible others).
#
# So we set our time zone to CET
BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::More tests => 1;
BEGIN { use_ok('Maplat::Web') };

t/06-helloworld.t  view on Meta::CPAN

use strict;
use warnings;
use Socket;

#########################

# There is currently a problem under Windows with Date::Manip on
# certain non-english installations of XP (and possible others).
#
# So we set our time zone to CET
BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::More;
my $hasMemcached;
BEGIN { 

t/22-complexweb.t  view on Meta::CPAN

#########################

# There is currently a problem under Windows with Date::Manip on
# certain non-english installations of XP (and possible others).
#
# So we set our time zone to CET
BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use strict;
use warnings;

t/23-stresstest.t  view on Meta::CPAN

#########################

# There is currently a problem under Windows with Date::Manip on
# certain non-english installations of XP (and possible others).
#
# So we set our time zone to CET
BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use strict;
use warnings;

t/24-prefork.t  view on Meta::CPAN

#########################

# There is currently a problem under Windows with Date::Manip on
# certain non-english installations of XP (and possible others).
#
# So we set our time zone to CET
BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use strict;
use warnings;

t/25-preforkstress.t  view on Meta::CPAN

#########################

# There is currently a problem under Windows with Date::Manip on
# certain non-english installations of XP (and possible others).
#
# So we set our time zone to CET
BEGIN {
    if(!defined($ENV{TZ})) {
        $ENV{TZ} = "CET";
    }
}

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use strict;
use warnings;