#!/usr/bin/perl
use strict;
use warnings;
my $dir='/home/e3/Media Gallery/Camera Pictures';
die "$dir: $!" unless -d $dir;
chdir $dir or die $!;
my $outfile='index.html';
open my $O, ">:encoding(utf8)", $outfile;
my $header=sprintf "pics@".$dir."";
printf $O "%s\n", $header;
foreach my $file (`ls *jpg`) {
chomp $file;
my $row=sprintf "\"%s\"
", $dir, $file, $file, $file;
#
#
#
printf $O "%s\n", $row;
}
my $footer=sprintf "";
printf $O "%s\n", $footer;
my $cmd="/bin/cat $outfile";
my @res=`$cmd`;
foreach my $r (@res) {
printf $O "%s\n", $r;
}
#Use LWP for this:
$cmd=sprintf "scp -p %s sirdavec\@sirdave.com:src", $outfile;
@res=`$cmd`;
foreach my $r (@res) {
printf $O "%s\n", $r;
}
$cmd="/home/e3/bin/chrome http://sirdave.com/src/$outfile";
@res=`$cmd`;
foreach my $r (@res) {
printf $O "%s\n", $r;
}
sub doCmd {
my $c=shift;
foreach my $r (@res) {
printf $O "%s\n", $r;
}
}