CTK::Util - CTK Utilities
Version 1.00
$Revision: 88 $
use CTK::Util; use CTK::Util qw( :ALL ); # Export only ALL tag. See TAGS section my @ls = ls(".");
Public subrountines
See Sys::Path prefix
See Sys::Path localstatedir
See Sys::Path sysconfdir
See Sys::Path datadir
See <Sys::Path> docdir
See Sys::Path localedir
See Sys::Path cachedir
See Sys::Path logdir
See Sys::Path spooldir
See Sys::Path rundir
See Sys::Path lockdir
See Sys::Path sharedstatedir
See Sys::Path webdir
See Sys::Path srvdir
Export all subrountines, default
Export only base subrountines
Export only text format subrountines
Export only date and time subrountines
Export only file and directories subrountines
Export only utilities subrountines
Export only processing subrountines
Export only inerface subrountines
my $sent = sendmail( -to => 'to@example.com', -cc => 'cc@example.com', ### OPTIONAL -from => 'from@example.com', -subject => 'my subject', -message => 'my message', -type => 'text/plain', -sendmail => '/usr/sbin/sendmail', ### OPTIONAL -charset => 'windows-1251', -flags => '-t', ### OPTIONAL -smtp => '192.168.1.1', ### OPTIONAL -authuser => '', ### OPTIONAL -authpass => '', ### OPTIONAL -attach => [ ### OPTIONAL { Type=>'text/plain', Data=>'document 1 content', Filename=>'doc1.txt', Disposition=>'attachment', }, { Type=>'text/plain', Data=>'document 2 content', Filename=>'doc2.txt', Disposition=>'attachment', }, { Type=>'text/html', Data=>'blah-blah-blah', Filename=>'response.htm', Disposition=>'attachment', }, { Type=>'image/gif', Path=>'aaa000123.gif', Filename=>'logo.gif', Disposition=>'attachment', }, ### ... ### ], ); debug($sent ? 'mail has been sent :)' : 'mail was not sent :(');
my @args = @_; my ($content, $maxcnt, $timeout, $timedie, $base, $login, $password, $host, $table_tmp); ($content, $maxcnt, $timeout, $timedie, $base, $login, $password, $host, $table_tmp) = read_attributes([ ['DATA','CONTENT','USERDATA'], ['COUNT','MAXCOUNT','MAXCNT'], ['TIMEOUT','FORBIDDEN','INTERVAL'], ['TIMEDIE','TIME'], ['BD','DB','BASE','DATABASE'], ['LOGIN','USER'], ['PASSWORD','PASS'], ['HOST','HOSTNAME','ADDRESS','ADDR'], ['TABLE','TABLENAME','NAME','SESSION','SESSIONNAME'] ],@args) if defined $args[0];
MIME::Lite, CGI::Util, Time::Local, Net::FTP, IPC::Open3
Serz Minus (Lepenkov Sergey) http://serzik.ru <minus@mail333.com>
Copyright (C) 1998-2013 D&D Corporation. All Rights Reserved
This program is free software; you can redistribute it and/or modify it under the same terms and conditions as Perl itself.
This program is distributed under the GNU LGPL v3 (GNU Lesser General Public License version 3).
See LICENSE file
LICENSE
To install CTK, copy and paste the appropriate command in to your terminal.
cpanm
cpanm CTK
CPAN shell
perl -MCPAN -e shell install CTK
For more information on module installation, please visit the detailed CPAN module installation guide.