42 lines
1.0 KiB
Perl
42 lines
1.0 KiB
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
|
||
|
|
my $wgetPath = "/usr/bin/wget";
|
||
|
|
|
||
|
|
my $numArgs = $#ARGV + 1;
|
||
|
|
|
||
|
|
if( $numArgs != 4 ) {
|
||
|
|
usage();
|
||
|
|
}
|
||
|
|
|
||
|
|
open( LIST_FILE, $ARGV[0] ) or usage();
|
||
|
|
|
||
|
|
print "opening $ARGV[0] for reading\n";
|
||
|
|
|
||
|
|
while( <LIST_FILE> ) {
|
||
|
|
chomp;
|
||
|
|
print "LINE: $_\n";
|
||
|
|
(my $email, my $name) = split( /,\W*/ );
|
||
|
|
$name =~ s/ /\+/g;
|
||
|
|
|
||
|
|
print " email = ($email), name = ($name)\n";
|
||
|
|
|
||
|
|
my $url = "http://sleepisdeath.net/ticketServer/server.php?action=sell_ticket&security_data=$ARGV[2]&email=$email&name=$name&reference=manual&tags=$ARGV[1]&security_hash=$ARGV[3]";
|
||
|
|
print " url = $url\n";
|
||
|
|
$result = `$wgetPath "$url" -q -O -`;
|
||
|
|
|
||
|
|
print " result = $result\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
sub usage {
|
||
|
|
print "Usage:\n";
|
||
|
|
print " bulk.pl list_file_name tag_name security_data security_hash\n";
|
||
|
|
print "Example:\n";
|
||
|
|
print " bulk.pl list.txt april16 abc 9f66c4044d8f39a9c06341b70fa791f6\n";
|
||
|
|
print "List file must have one person per line in the following format:\n";
|
||
|
|
print " bob\@test.com, Bob Babbs\n";
|
||
|
|
die;
|
||
|
|
}
|