view release on metacpan or  search on metacpan

lib/App/Followme/UploadLocal.pm  view on Meta::CPAN

# Add a directory to the remote site

sub add_directory {
    my ($self, $dir) = @_;

    my $new_dir = catfile($self->{remote_directory}, $dir);
    my $status = mkdir($new_dir);

    if ($status) {
        my $permissions = $self->{permissions} | 0111;
        chmod($permissions, $new_dir);
    }

    return $status;
}

#----------------------------------------------------------------------
# Add a file to the remote site

sub add_file {
    my ($self, $local_filename, $remote_filename) = @_;

    my $new_file = catfile($self->{remote_directory}, $remote_filename);
    my $status = copy($local_filename, $new_file);

    chmod($self->{permissions}, $new_file) if $status;
    return $status;
}

#----------------------------------------------------------------------
# Close the connection

sub close {
    my ($self) = @_;
    return;
}

lib/App/Followme/UploadSite.pm  view on Meta::CPAN

}

#----------------------------------------------------------------------
# WRITE_WORD -- Write the secret word to a file

sub write_word {
    my ($self, $filename, $user, $pass) = @_;

    my $obstr = $self->obfuscate ($user, $pass);
    fio_write_page($filename, "$obstr\n");
    chmod (0600, $filename);

    return;
}

1;
__END__

=encoding utf-8

=head1 NAME

share/install.sh  view on Meta::CPAN

#!/usr/bin/sh
# install.sh -- A script to install followme on Linux. Must be run with sudo 

# Update for a new version of Perl
PERL_ENV=/usr/local/share/perl/5.30.0

cd `dirname $0`

mkdir -p $PERL_ENV/App
cp ../lib/App/Followme.pm $PERL_ENV/App
chmod -w  $PERL_ENV/App/Followme.pm

mkdir -p $PERL_ENV/App/Followme
cp  ../lib/App/Followme/*.pm $PERL_ENV/App/Followme
chmod -w  $PERL_ENV/App/Followme/*.pm

cp ../script/followme /usr/local/bin
chmod -w /usr/local/bin/followme