#!/usr/bin/perl
use strict;
use diagnostics;

# addquote.pl
# Mike Erickson <mee@quidquam.com>

# I use this for piping visual blocks from within vim (from within mutt) to
# append quotes to my quotefile for later strfile-processing into a string
# random-access file for use by fortune.

my $quotefile = '/home/mee/errata/quidquotes';

open(QUOTES,">>$quotefile") || die "Couldn't open $quotefile: $!";

undef $/;
my $quote = <>;

print QUOTES "%\n$quote";

close(QUOTES);