view release on metacpan or  search on metacpan

lib/Pod/Simple/Wiki/Twiki/Upload.pm  view on Meta::CPAN

}

sub twiki_upload 
{
	my ($twikiroot, $twikiweb) = @_;
	$twikiweb ||= 'Main';

	my %files = make_file_list;
	return unless %files;

	my $user = $ENV{TWIKI_USER} || prompt("What is your twiki user id?", scalar(getpwuid($<)));
	chomp($user);
	$user =~ s/ $//;
	system("stty -echo");
	my $pass = $ENV{TWIKI_PASS} || prompt("What is your twiki password?", '');
	chomp($pass);
	system("stty echo");
	print "\n";

	require IO::Scalar or die;
	import IO::Scalar;