X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FNode.pm;h=4e1692f13275792fa9a46e3b811aae4b76dbe0f1;hb=a931b090e0be3329bcbf7deddb7c17c30fa0e74a;hp=f3072db121cb747b440c838244cc51025606cf3c;hpb=a1fe338de72800232a8623f592c1a62d1f994fad;p=spider.git

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index f3072db1..4e1692f1 100644
--- a/perl/Route/Node.pm
+++ b/perl/Route/Node.pm
@@ -270,6 +270,24 @@ sub get_all
 	return values %list;
 }
 
+#
+# pc59 entity encoding and decoding
+#
+sub enc_pc59
+{
+	my $self = shift;
+	my $sort = shift || 'N';
+	my $out = "$sort$self->{flags}$self->{call}";
+	if ($sort eq 'N') {
+		if ($self->{build}) {
+			$out .= "b$self->{build}";
+		} elsif ($self->{version}) {
+			$out .= "v$self->{version}"; 
+		}
+	}
+	return $out;
+}
+
 sub DESTROY
 {
 	my $self = shift;