PERL   28
aim test
Guest on 26th May 2023 01:03:01 AM


  1. use strict;
  2. use warnings;
  3. use BarnOwl;
  4.  
  5. our $username = 'barnowldevtest';
  6. our $password = 'GMdPU/49KwbIY';
  7. our $username2 = 'barnowldevtest2';
  8. our $password2 = 'WtoDCP7yrMbW2';
  9.  
  10. BarnOwl::command("aimlogin $username $password");
  11. BarnOwl::command("aimlogin $username2 $password2");
  12. BarnOwl::command("aimwrite -a $username2 $username -m 'test to $username from $username2.'");
  13. BarnOwl::command("aimwrite -a $username $username2 -m 'test from $username to $username2.'");
  14. BarnOwl::command("aimwrite -a $username $username2 -m 'testing aaway'");
  15. BarnOwl::command("aaway 'foo'");
  16. BarnOwl::command("aimwrite -a $username2 $username -m 'test to $username from $username2.'");
  17. BarnOwl::command("aimwrite -a $username $username2 -m 'test from $username to $username2.'");
  18. BarnOwl::command("aimwrite -a $username $username2 -m 'testing alist'");
  19. BarnOwl::command("alist");
  20. BarnOwl::command("alist $username");
  21.  
  22. BarnOwl::command("aimwrite -a $username $username2 -m 'Testing logout'");
  23. BarnOwl::command("aimlogout $username $username2");
  24. BarnOwl::command("aimwrite -a $username $username2 -m 'LOGOUT FAIL'");
  25. BarnOwl::command("aimwrite -a $username2 $username -m 'LOGOUT FAIL'");
  26.  
  27. 1;
Raw Paste

Login or Register to edit or fork this paste. It's free.