wireless-inject/party.pl

   1 #!/usr/bin/perl
   2
   3 use Net::Lorcon;
   4
   5 #my $tx = Net::Lorcon->new("eth1", "prism54");
   6
   7 print " - " . Net::Lorcon::resolvecard("eth1") . " - \n";
   8
   9 foreach (Net::Lorcon::getcardlist) {
  10   print $_."\n";
  11   my $tx = Net::Lorcon->new("eth1", "$_");
  12   $tx->open;
  13
  14   #open (FILE,"starwars.txt");
  15   #while (<FILE>) {
  16 #  print $_;
  17     $tx->txpacket("zxcvbnmasdfghjklqwertyuuiop123456780");
  18   #sleep 1;
  19   #}
  20   $tx->close();
  21 }