view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.23    2010-11-26
        Preserve the source file's extension for ssh (Thomas Sibley)
        Use Config::GitLike instead of Config::INI::Reader (Thomas Sibley)
        Doc fixes (Thomas Sibley, Justin Hunter)
        Code style fixes (Shawn M Moore)
        Remove Rafb (Justin Hunter)
        Remove Husk (Shawn M Moore)

0.22    2010-06-10 12:58:00
        Add NOPASTE_SSH_MODE for chmod'ing after uploading (Thomas Sibley)

0.21    2010-05-01 09:32:10
        Add a --list_services/-L option (David Bremner) [rt.cpan.org #55562]
        Add --private support, used in Gist (John Goulah)
        Doc fix (Salvatore Bonaccorso) [rt.cpan.org #53249]
        Doc fix (Fabien Wernli) [rt.cpan.org #54928]
        Mention 'nopaste' script (Damyan Ivanov) [rt.cpan.org #51065]

0.20    2010-04-16 23:05:10
        App::Nopaste::Service::Pastie would generate warnings via

lib/App/Nopaste/Service/ssh.pm  view on Meta::CPAN

        UNLINK   => 1,
        TMPDIR   => 1,
    );
    my $filename = File::Spec->rel2abs($tmp->filename);

    print $tmp $args{text}
        or return (0, "Can't write to tempfile $filename");
    close $tmp
        or return (0, "Can't write to tempfile $filename");

    chmod oct($mode), $filename
        if defined $mode;

    system('scp', '-pq', $filename, "$server:$docroot");

    my $file = ( File::Spec->splitpath($filename) )[2];
    $file = uri_escape($file);
    $file =~ s/%2b/+/gi;

    return (1, "$topurl/$file");
}