ruby-radius 1.1

data/test/test.pl

@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+# Test program in Perl using Net::Radius, to compare the results with
+# our program.
+# This test program is provided only for illustrative purposes and is
+# placed in the public domain.
+# $Id: test.pl 2 2006-12-17 06:16:21Z dido $
+#
+use Net::Radius::Packet;
+use Net::Radius::Dictionary;
+
+my $dict = new Net::Radius::Dictionary "./dictionary" 
+  or die "Cannot read or parse dictionary: $!\n";
+
+my $packet = new Net::Radius::Packet $dict;
+
+$packet->set_code('Access-Request');
+$packet->set_identifier(1);
+$packet->set_attr('User-Name', 'you');
+$packet->set_attr('NAS-IP-Address', '127.0.0.1');
+$packet->set_attr('NAS-Port', 1);
+$packet->set_attr('Expiration', 1000000);
+$packet->set_attr('Service-Type' => 'Framed-User');
+$packet->set_attr('Framed-Protocol' => 'PPP');
+$packet->set_vsattr(9, 'cisco-avpair', 'This is my VSA 1');
+$packet->set_vsattr(9, 'cisco-avpair', 'This is my VSA 2');
+$packet->set_vsattr(1, 'ibm-enum', 'value-1');
+$packet->set_vsattr(1, 'ibm-enum', 'value-2');
+$packet->set_vsattr(1, 'ibm-enum', 'value-3');
+$packet->set_authenticator("aaaaaaaaaaaaaaaa");
+$packet->set_password('My-Password', 'My-Shared-Secret');
+my $p = $packet->pack;
+print unpack("H*", $p) . "\n";
+
+my $packet2 = new Net::Radius::Packet $dict;
+# this string----------------| was generated from test.rb
+$packet2->unpack(pack("H*", "0101009d616161616161616161616161616161610212bd74ad27726cd1110d87303775934bfd0606000000020105796f750706000000010506000000011506000f424004067f0000011a0c00000001fe06000000021a0c00000001fe06000000021a0c00000001fe06000000031a1800000009011254686973206973206d792056534120311a1800000009011254686973206973206d79205653412032"));
+$packet2->dump;
+#print "RAD-Code = " . $packet2->code . "\n";
+#print "RAD-Identifier = " . $packet2->identifier . "\n";
+#print "RAD-Authenticator = " . $packet2->authenticator . "\n";
+#foreach $attr ($packet2->attributes) {
+#  $val = ($attr eq "User-Password") ? $packet2->password("My-Shared-Secret") :
+#    $packet2->attr($attr);
+#  print "$attr = $val\n";
+#}

data/test/test.rb

@@ -0,0 +1,34 @@
+#!/usr/local/bin/ruby
+# Simple test program, generates a test packet for test.pl, compare with
+# Net::Radius in Perl.
+# This test program is provided only for illustrative purposes and is placed
+# in the public domain.
+# $Id: test.rb 2 2006-12-17 06:16:21Z dido $
+
+require './radius/dictionary'
+require './radius/packet'
+
+dict = Radius::Dict.new
+dict.read(File.new("dictionary"))
+packet = Radius::Packet.new(dict)
+packet.code = 'Access-Request'
+packet.identifier = 1
+packet.set_attr('User-Name', 'you')
+packet.set_attr('NAS-IP-Address', '127.0.0.1')
+packet.set_attr('NAS-Port', 1)
+packet.set_attr('Service-Type', 'Framed-User')
+packet.set_attr('Framed-Protocol', 'PPP')
+packet.set_attr('Expiration', 1000000)
+packet.set_vsattr(9, 'cisco-avpair', 'This is my VSA 1')
+packet.set_vsattr(9, 'cisco-avpair', 'This is my VSA 2')
+packet.set_vsattr(1, 'ibm-enum', 'value-2')
+packet.set_vsattr(1, 'ibm-enum', 'value-2')
+packet.set_vsattr(1, 'ibm-enum', 'value-3')
+packet.authenticator = "aaaaaaaaaaaaaaaa"
+packet.set_password('My-Password', 'My-Shared-Secret')
+p = packet.pack
+print p.unpack("H*"), "\n"
+packet2 = Radius::Packet.new(dict)
+# This string----| was created by test.pl
+packet2.unpack(["0101009d616161616161616161616161616161610105796f751506000f424007060000000105060000000104067f0000010212bd74ad27726cd1110d87303775934bfd0606000000021a0c00000001fe06000000011a0c00000001fe06000000021a0c00000001fe06000000031a1800000009011254686973206973206d792056534120311a1800000009011254686973206973206d79205653412032"].pack("H*"))
+print packet2.to_s('My-Shared-Secret') + "\n"

metadata

@@ -0,0 +1,53 @@
+--- !ruby/object:Gem::Specification
+name: ruby-radius
+version: !ruby/object:Gem::Version
+  version: '1.1'
+  prerelease: 
+platform: ruby
+authors:
+- Rafael 'Dido' Sevilla
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-02-15 00:00:00.000000000 Z
+dependencies: []
+description: ''
+email: 
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- dictionary
+- examples/radiusclient.rb
+- examples/rclient.rb
+- README
+- lib/radius/auth.rb
+- lib/radius/dictionary.rb
+- lib/radius/packet.rb
+- test/test.pl
+- test/test.rb
+homepage: 
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: 1.8.7
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.25
+signing_key: 
+specification_version: 3
+summary: A ruby implementation of an RFC 2139 compliant radius client
+test_files: []