Skip to content

Instantly share code, notes, and snippets.

@direvius

direvius/light_post.pl

Created October 13, 2012 10:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save direvius/3884148 to your computer and use it in GitHub Desktop.
Save direvius/3884148 to your computer and use it in GitHub Desktop.
Download ZIP
Post ammo generation for Yandex.Tank
Raw
light_post.pl
#!/usr/bin/perl
my $data ="DATA_IN_POST";
my $req= "POST /updateShopStatus? HTTP/1.0\r\n".
"User-Agent: yandex-tank/1.1.1\r\n".
"Host: example.com\r\n".
"Content-Length:".length ($data)."\r\n".
"Connection: Close\r\n".
"\r\n".
$data."\r\n".
"\r\n";
print length($req)."\n".$req;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment