Tags » SCP

ATEM Production Studio 4K For SALE!!

http://www.mudah.my/ATEM+Production+Studio+4K+by+Blackmagic+Design-32998222.htm

ATEM Production Studio 4K by Blackmagic Design UltraHD 4K Resolution!
Multiview Monitoring in HD!!!!!
Free Software!!!!
Can Control High Quality Video & High Quality Audio!!! 176 more words

Sporting Clube de Goa complete signing of Miguel Garcia


-SCP Academy Graduate played with Cristiano Ronaldo
-Set to make debut against Dempo

I-League outfit, Sporting Clube de Goa completed their four foreigner quota after signing Portuguese defender… 394 more words

Goan Football

On the Road with SCP - Veiled Dominance- Evelise Archer

Blurb

Shane Wise is a Dom and part owner of a popular BDSM club
in Rittenhouse Square, Club Rebellion.  A
tumultuous past has led him to an almost perfect present, except Shane has a… 1,147 more words

New Release

Brother George A. Brown elected to State Democrat Representative for House District 77 (KY)

George A. Brown, Jr., is a native of Lexington, Kentucky, a former county councilman and an actively engaged community leader. During the election held in November 2014, he was elected as a Democratic State Representative in Kentucky’s 77th Legislative District. 549 more words

Kappa Alpha Psi

Weekly Script #1 - ssh_key_scp.sh

Since I dont post on here to often I will try and post a weekly script that I find useful day-to-day.

First up is a short simple script to scp your private key to a defined server. 155 more words

Linux

Perl transfer files using ssh (shortcut command)

transfer.pl

#!/usr/bin/perl

use Term::ANSIColor;

if (! defined $ARGV[0]) {
 print "Don't be stupid please...";
 exit 0;
}

my $file = "/home/user/hosts.txt";
my $keysdir = "/home/user/keys";
my $username = $ARGV[1];
my $remote_hostname = $ARGV[0];
my $xfer = $ARGV[2];
my $time = qx/date/;

if ( $ARGV[0] =~ /edit/) {
 my $command = "vim $file";
 system ($command);
 exit 0;
}

if ( $ARGV[0] =~ /list/) {
 print "\n";
 open (my $data, "<" , "$file")
 or die "Failed to open file: $!\n";
 while (my $row = <$data>) {
 chomp $row;
 print "$row\n"
 }
 exit 0;
}

if (! 167 more words
Perl