yolanda/trunk/tools/yolanda-upload.pl
2008-02-14 22:35:25 +00:00

138 lines
3.7 KiB
Perl
Executable file

#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common;
use Getopt::Std;
sub preamble {
print "yolanda-upload by Johannes Schauer (josch)\n";
print "http://yolanda.mister-muffin.de/trac\n";
print "\n"
}
# set these values for default -l (login) and -p (pass) values
# TODO: lol configfile !!!
use constant USER => "";
use constant PASS => "";
# various urls
my $url = 'http://localhost';
unless (@ARGV) {
preamble();
print "Usage: $0 ",
"-u [username] ",
"-p [password] ",
"-f <video file> ",
"-t <title> ",
"-d <description> ",
"-x <space separated tags>",
"-c <creator>",
"-s <source>",
"-l <language>",
"-v <coverage>\n\n";
exit 1;
}
my %opts;
getopts('u:p:f:t:d:x:c:s:l:v:', \%opts);
unless (defined $opts{u}) {
unless (length USER) {
preamble();
print "Username was neither defined nor passed as an argument\n";
print "Use -u switch to specify the username\n";
print "Example: -u joe_random\n";
exit 1;
}
else {
$opts{l} = USER;
}
}
unless (defined $opts{p}) {
unless (length PASS) {
preamble();
print "Password was neither defined nor passed as an argument\n";
print "Use -p switch to specify the password\n";
print "Example: -p secretPass\n";
exit 1;
}
else {
$opts{p} = PASS;
}
}
unless (defined $opts{f} && length $opts{f}) {
preamble();
print "No video file was specified\n";
print "Use -f switch to specify the video file\n";
print 'Example: -f "C:\Program Files\movie.avi"', "\n";
print 'Example: -f "/home/pkrumins/super.cool.video.wmv"', "\n";
exit 1;
}
unless (-r $opts{f}) {
preamble();
print "Video file is not readable or does not exist\n";
print "Check the permissions and the path to the file\n";
exit 1;
}
unless (defined $opts{t} && length $opts{t}) {
preamble();
print "No video title was specified\n";
print "Use -t switch to set the title of the video\n";
print 'Example: -t "Super Cool Video Title"', "\n";
exit 1;
}
$ua = LWP::UserAgent->new(cookie_jar => {});
push @{$ua->requests_redirectable}, 'POST';
print "Getting sid cookie...\n";
# DONT PRINT THIS - UNIX PHILOSPHY IS: IF IT WORKS DONT DISPLAY SHIT ! ( maybe add a -v switch )
$response = $ua->request(GET $url);
unless($response->is_success)
{
die "Failed opening $url: ",
$response->status_line;
}
print "Logging in to $url/login.pl...\n";
# DONT PRINT THIS - UNIX PHILOSPHY IS: IF IT WORKS DONT DISPLAY SHIT ! ( maybe add a -v switch )
$response = $ua->request(POST "$url/login.pl", "Content_Type" => "form-data", "Content" => [action => login, user => test, pass => test]);
unless($response->is_success)
{
die "Failed logging in: ",
$response->status_line;
}
unless($response->content =~ /action=logout/)
{
die "Failed logging in: username/password do not match";
}
print "Uploading $opts{f} to $url/uploader.pl...\n";
# DONT PRINT THIS - UNIX PHILOSPHY IS: IF IT WORKS DONT DISPLAY SHIT ! ( maybe add a -v switch )
$response = $ua->request(POST "$url/uploader.pl",
"Content_Type" => "multipart/form-data",
"Content" => [
file => [$opts{f}],
"DC.Title" => $opts{t},
"DC.Description" => $opts{d},
"DC.Subject" => $opts{x},
"DC.Creator" => $opts{c} ? $opts{c} : "",
"DC.Source" => $opts{s} ? $opts{s} : "",
"DC.Language" => $opts{l} ? $opts{l} : "",
"DC.Coverage" => $opts{v} ? $opts{v} : "",
]
);
unless($response->is_success)
{
die "Failed uploading: ",
$response->status_line;
}
print "Done!\n";
# DONT PRINT THIS - UNIX PHILOSPHY IS: IF IT WORKS DONT DISPLAY SHIT ! ( maybe add a -v switch )