put_code.pl



NAME

put_code.pl [glob]


DESCRIPTION

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


COPYRIGHT

Copyright 2010 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;