put_code.pl

NAME

put_code.pl [glob]

DESCRIPTION

Put Perl code on <www.etilem.net>, FTP password is needed ;)

COPYRIGHT

Copyright 2000-2007 Etienne LEMEE <coding AT etilem DOT net>

This piece of code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

#!/usr/bin/perl -w

use strict;
use Net::FTP::Etilem_net;
$|=1;

for (qw(tidy perltidy)) {
    die "'$_' is missing, aborting." unless qx(which $_);
}

my @l = @ARGV;
@l =  qw(*pm *pl) unless(@l);
my $l = new Net::FTP::Etilem_net;

$l->ftp_connect;
$l->ftp_changedir("/www/perl");
for (qx(ls @l)) {
    if (/\.p[lm]$/) {
        chomp;
        print "Formatting $_ in HTML : ";
        system("perltidy -css=code.css -st -se -html $_" .
               "| tidy -q -c -utf8 -asxml > $_.html 2>/dev/null");
        print "OK\n";
    }
    $l->ftp_put($_);
    $l->ftp_put($_ . ".html");
    unlink "$_.html";
}
$l->ftp_quit;