afresh1

labels = [
  { "name": "Priority: Low", "color": "#009800" },
  { "name": "Priority: Medium", "color": "#fbca04" },
  { "name": "Priority: High", "color": "#eb6420" },
  { "name": "Priority: Critical", "color": "#e11d21" },
  { "name": "Status: Abandoned", "color": "#000000" },
  { "name": "Status: Accepted", "color": "#009800" },
  { "name": "Status: Available", "color": "#bfe5bf" },
  { "name": "Status: Blocked", "color": "#e11d21" },
  { "name": "Status: Completed", "color": "#006b75" },

afresh1

#!/usr/bin/perl
# Copyright (c) 2015 Andrew Fresh <andrew@afresh1.com>
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR

afresh1

#!/bin/sh
# replaces the c_rehash perl script from openssl.
# by afresh1

rm -f *.[0-9]* *.r[0-9]*
for c in *.pem; do
   [ "$c" = "*.pem" ] && continue
   hash=$(openssl x509 -noout -hash -in "$c")
   if egrep -q -- '-BEGIN( X509 | TRUSTED | )CERTIFICATE-' "$c"; then
     suf=0

afresh1

package BingQuadkeys;
use Exporter qw(import);
use strict;
use warnings;

our @EXPORT_OK = qw(
    clip
    map_size
    ground_resolution
    map_scale

afresh1

# $OpenBSD$

COMMENT =		rsync for cloud storage

GH_ACCOUNT =		ncw
GH_PROJECT =		rclone
GH_TAGNAME =		v1.35

CATEGORIES =		sysutils

afresh1

use v5.24.0;                                                                                                            
use warnings;                                                                                                           
use feature 'signatures';                                                                                               
no warnings 'experimental::signatures';                                                                                 
# https://aphyr.com/posts/340-acing-the-technical-interview                                                             
                                                                                                                        
sub true()  { 1 }                                                                                                       
sub false() { 0 }                                                                                                       
                                                        

afresh1

#!/usr/bin/perl
#
# $Id: queue-status.pl,v 1.3 2012/10/17 18:10:22 dan Exp $
#
# Copyright (c) 2001-2006 DVL Software
#

use strict;
use warnings;

afresh1

--- admin.cgi.orig	Wed Oct 11 18:32:23 2017
+++ admin.cgi	Wed Oct 11 18:32:52 2017
@@ -8,19 +8,19 @@
 ###########################
 use strict;
 use Blogsum::Config;
-my $database = $Blogsum::Config::database;
-my $blog_theme = $Blogsum::Config::blog_theme;
-my $blog_title = $Blogsum::Config::blog_title;
+our $database = $Blogsum::Config::database;

afresh1

#!/usr/bin/env plackup
use strict;
use warnings;

use Plack::Builder;
use Plack::App::File;
use Plack::App::WrapCGI;

BEGIN {
	chdir "/var/www/blogsum" or die "Unable to chdir: $!";

afresh1

#!/usr/bin/perl
use v5.20;;
use warnings;

BEGIN {
        require Time::HiRes;
        # Has to come before importing File::Copy
        Time::HiRes->export( 'File::Copy', qw( stat utime ) );
}
use File::Copy;