#hour()

(NOTE:  Some of the techniques shown or described on this page--marked in purple--require new features in the latest official PIKT 1.19.0 release (pikt-current.tar.gz) that are unavailable in any previous version.)

DESCRIPTION
    returns the current hour (0-23)

    or:

    returns the hour portion (0-23) of the given datevalue/timevalue
SYNOPSIS
    #hour()

    or:

    #hour(d)

    or:

    #hour(t)
ARGUMENTS
    none

    or:

    d - a datevalue, or datevalue expression

    or:

    t - a timevalue, or timevalue expression
EXAMPLES
# pikt +C 'output $text(#hour())'
14

# pikt +C 'output $text(#hour(#now()))'
14
night                            ( #hour() <   6 )
morning         ( #hour() >=  6 && #hour() <  12 )
afternoon       ( #hour() >= 12 && #hour() <  18 )
evening         ( #hour() >= 18 )
once_daily(A)   // set #hr = #hour()
                if #hr < %hr
                        (A)
                fi
bypass_day_rollover
                if    ( #hour() == 23 )
                   || ( #hour() == 0  && #minute() <  30 )
                        quit
                fi
        rule
                if $alert() =~~ "hourly|critical"
                        if #hour() > 6  // only run midnight to 6 am
                                quit
                        fi
                fi
        rule    // ignore scheduled reboots
                if =reboot_period(#daynumber(), #hour())
                        next
                fi
        rule    // make a history copy of all new scripts
                if ! #defined(%fmt[$fil])
                        if =offhours(#hour())
                                doexec wait "=cp -p $fil $hstfil"
                                output log "(L)" "new script:  $fil"
                        fi
                        next
                fi
businessopen(H)         // beginning of a normal business day
                        (=weekday && ((H) >= 8 && (H) < 10))

checkpoint(LA)
#ifdef debug
                output $chop($command("=uptime | =awk '{print \$10}'"))
#endifdef
#if dbserver
                if =businessopen(#hour())
                        if $level() !~~ "emerg"
                                quit
                        fi
                fi
#endif
                set #la = #val($chop($command("=uptime | =awk '{print \$10}'")))
                if #la >= (LA)
                        output log "=logdir/Checkpoint.log"
                                   "quit $alarm(), load average $text(#la, 2)"
                        quit
                fi
SEE ALSO
    #minute()
    #now()
    #second()
    #today()
    #datevalue()
    #timevalue()

    Numerical Functions
    String Functions
 
Home | FAQ | News | Intro | Samples | Tutorial | Reference | Software
Developer's Notes | Licensing | Authors | Pikt-Users | Pikt-Workers | Related Projects | Site Index | Privacy Policy | Contact Us
Page best viewed at 1024x768 or greater.   Page last updated 2019-01-12.   This site is PIKT® powered.
Copyright © 1998-2019 Robert Osterlund. All rights reserved.
Home FAQ News Intro Samples Tutorial Reference Software
PIKT Logo
PIKT Page Title
View sample
new startup
scripts
Pikt script