kfrancis

if ($OctopusEnvironmentName -eq "Production") {
	# in production, we need to
	#Create a URI instance since the HttpWebRequest.Create Method will escape the URL by default.
	$URL = "http://api.newrelic.com/deployments.xml"
	$post = "deployment[account_id]=<id here>&deployment[user]=OctopusDeploy&deployment[app_id]=<app id here>&deployment[revision]=($OctopusPackageVersion)"
	$URI = New-Object System.Uri($URL,$true)
 
	#Create a request object using the URI
	$request = [System.Net.HttpWebRequest]::Create($URI)
 

kfrancis

cd .. # Since PostDeploy is in the latest deployed version directory, just back out one level. Thanks Paul!
$path = Get-Location
$folders = Get-ChildItem -Path $path -Recurse | Where-Object {$_.PsIsContainer}
$keep = 3
if ($folders.Count -gt $keep) {
    $folders |Sort-Object CreationTime |Select-Object -First ($folders.Count - $keep)| Remove-Item -Force
}

kfrancis

require 'rubygems'
require 'chargify_api_ares'
require 'csv'

Chargify.configure do |c|
  c.subdomain = ''
  c.api_key = ''
end

CSV.open('subscription_coupons.csv', 'wb') do |csv|

kfrancis

# Script that will: 
# 1. Create a workspace. Workspacce Name: <ComputerName>_Root
# 2. Get the latest code from repository

# TODO: This needs to handle making workspace PER PROJECT, which it doesn't yet.
# TODO: It should create a local directory for each project in TFS, along with the workspace to download the files.

[string] $tfsDomain = "foo"
[string] $tfsServer = "https://" + $tfsDomain + ".visualstudio.com/defaultcollection"
[string] $userName = [system.environment]::UserName; 

kfrancis

From: https://github.com/Craga89/qTip2/blob/master/LICENSE-MIT

Copyright (c) 2012 Craig Michael Thompson

Permission is hereby granted, free of charge, to any person
obtaining a copy of this software and associated documentation
files (the "Software"), to deal in the Software without
restriction, including without limitation the rights to use,
copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the

kfrancis

var obj = $("#subscription_payment_profile_attributes_billing_country");
if (obj !== null) {
    obj.val('AU');
    if (typeof(setRelatedCountry) === 'function') { setRelatedCountry('AU', obj.attr('rel'), ""); }
}

kfrancis

if ([System.Version] (Get-ItemProperty -path "HKLM:\Software\Microsoft\Windows NT\CurrentVersion").CurrentVersion -ge [System.Version] "6.1") { Import-Module WebAdministration } else { Add-PSSnapin WebAdministration }

Function ReplaceWebsiteBinding($sitename, $oldBinding, $newValue)
{
    $wsbindings = (Get-ItemProperty -Path "IIS:\Sites\$sitename" -Name Bindings)
	Write-Host "Found bindings:"
	Write-Host ($wsbindings.Collection).length
    for($i=0;$i -lt ($wsbindings.Collection).length;$i++)
	{
		Write-Host ($wsbindings.Collection[$i]).bindingInformation

kfrancis

var countryDdl = $("#subscription_payment_profile_attributes_billing_country");
if (countryDdl) {
  countryDdl.empty(); // Remove all existing options
  $("<option />", {val: "US", text: "United States"}).appendTo(countryDdl); // Add US
}

kfrancis

# Script that archives the .log files in the current directory that are from last month into a file that contains the month/year

$7Zip = 'C:\"Program Files"\7-Zip\7z.exe'
$firstDayOfMonth = (Get-Date (Get-Date) -Day 1 -Hour 0 -Minute 0 -Second 0)
Write-Host ("First Day of THIS month is: " + $firstDayOfMonth)
$lastDayOfLastMonth = $firstDayOfMonth.AddSeconds(-1)
Write-Host ("Last Day of LAST month is: " + $lastDayOfLastMonth)
$outputFileName = [string]::Format("Logs_{0}-{1}.zip", $lastDayOfLastMonth.Year, $lastDayOfLastMonth.Month.ToString("00"))

kfrancis

Keybase proof

I hereby claim:

• I am kfrancis on github.
• I am djbyter (https://keybase.io/djbyter) on keybase.
• I have a public key ASDc-2RcydmAI7yz0vO7cKixlyZxKXyHN_JUfqNZZbv7GQo

To claim this, I am signing this object: