view release on metacpan or  search on metacpan

lib/DBD/Informix/Summary.pm  view on Meta::CPAN

  DATETIME("2000-02-29") YEAR TO DAY,

and The Epoch for POSIX systems can be expressed as:

  DATETIME(1970-01-01 00:00:00) YEAR TO SECOND

There is no direct support for timezones.

The default date time format depends on the environment locale
settings and the version and the data type.  The DATETIME types are
rigidly ISO 8601 except for converting 1-digit or 2-digit years to a
4-digit equivalent, subject to version and environment.

Handling of two digit years depends on the version, the bugs fixed, and
the environment.  In general terms (for current software), if the
environment variable C<DBCENTURY> is unset or is set to C<'R'>, then the
current century is used.  If DBCENTURY is C<'F'>, the date will be in the
future; if DBCENTURY is C<'P'>, it will be in the past; if DBCENTURY is
C<'C'>, it will be the closest date (50 year window, based on current day,
month and year, with the time of day untested).

lib/DBD/Informix/TechSupport.pm  view on Meta::CPAN

    # * It is not unreasonable to build DBD::Informix using:
    #   perl BugReport 2>&1 | tee bugreport.out

    sub bug_report
    {
        my ($opt, @tests) = @_;

        $| = 1;

        # Simulate (Solaris dialect of) 'id' program in Perl.
        my ($id, $name, $gid, @rgrps, $egid, @egrps, $pad);
        $name = getpwuid($<);
        $id = "uid=$<($name)";
        @rgrps = split / /, $(;
        $gid = $rgrps[0];
        shift @rgrps;
        $name = getgrgid($gid);
        $id .= " gid=$gid($name)";
        if ($< != $>)
        {
            $name = getpwuid($>);
            $id .= " euid=$>($name)";
        }
        @egrps = split / /, $);
        $egid = $egrps[0];
        if ($egid != $gid)
        {
            $name = getgrgid($egid);
            $id .= " egid=$egid($name)";
        }
        $pad = " groups=";
        foreach $gid (@rgrps)
        {
            $name = getgrgid($gid);
            $id .= "$pad$gid($name)";
            $pad = ",";
        }

        system qq{
            echo "Command:   $0 $opt @tests"
            echo "Date:      `date`"
            echo "Machine:   `uname -n` (`uname -s -r`)"
            echo "User:      $id"
            echo "Directory: `pwd`"
            echo "Umask:     `umask`"

lib/DBD/Informix/TechSupport.pm  view on Meta::CPAN

        print "+ $cmd\n";
        warn $msg unless system($cmd) == 0;
    }


    # Print a report that the installation works
    sub it_works
    {
        my ($sec,$min,$hour,$mday,$mon,$year) = gmtime(time);
        my ($date) = sprintf "%04d-%02d-%02d", $year + 1900, $mon + 1, $mday;
        my ($uname,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = getpwuid $>;

        #perl -MConfig -e 'for $key (sort keys %Config) { print "$key = $Config{$key}\n"; }'

        # Try to generate an email name and address
        my ($who) = "$uname\@$Config{myhostname}$Config{mydomain}";
        if ($comment)
        {
            $who = "$comment <$who>";
        }
        elsif ($gcos)