Sending links when you cannot send files.

I've been reviewing my ~/bin directory and felt like sharing some of the little scripts there.

Today, here's a little Perl script that helps me when having to give a file (screenshot or something) to someone @work. Most people do it by mail, or using jabber protocol. Unfortunately, emacs-jabber does not allow sending nor receiving files, and opening mail client and attaching files is waaay to slow and boring.

The way I work with this situation is having a simple http server in my computer, and moving the file there. then, I paste the link to my coworker, and he/she just has to click it and download.

The http server lives inside emacs. Oh yeah, that's irrelevant. But I had to say it.

Well, here's a script I wrote in 2 minutes.

	#!/usr/bin/perl
	use strict;
	use warnings;
	use Clipboard;
	use Digest::MD5;
	use File::Copy qw(copy move);
	my $par=shift;
	open my $fh, $par or die "no parameter!";
	binmode $fh;
	my $dest_dir="/home/rgrau/public_html/";
	my @output = grep {/inet addr/} `ifconfig`;
	$output[0] =~ /inet addr:([^ ]*) /;
	my $server="http://$1:8080";
	my ($ext) = $par =~/^.*(\.[^.]*)$/;
	my $md5 = Digest::MD5->new->addfile($fh)->hexdigest;
	copy($par, "${dest_dir}${md5}${ext}");
	Clipboard->copy("$server/${md5}${ext}")

view raw publish.pl hosted with ❤ by GitHub

Hashing the name is to avoid name guessing. I think I got this idea from a Mark Fowler's post that was doing something like this with dropbox.