8 my ($root, $album) = $cwd =~ m{(.*)/photos/(.*)} or die "Cannot identify album from current directory, giving up.\n";
9 my $static = "$root/static/gallery/photo/$album";
10 -d $static or die "Cannot find generated photos in $static, giving up.\n";
12 print "## Uploading album $album\n";
13 system "rs", "$static/", "jw:www/static/gallery/photo/$album/";
16 print "## Pulling at the server\n";
17 system "ssh", "jw", "cd web && git pull";
20 print "## Regenerating cache at the server\n";
21 system "ssh", "jw", "cd web/photos/$album && ~/web/gal2/gal cache";