mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
61 lines
1.0 KiB
Perl
61 lines
1.0 KiB
Perl
#
|
|
# Thingy handling
|
|
#
|
|
# This is the new fundamental protocol engine handler
|
|
#
|
|
# $Id$
|
|
#
|
|
# Copyright (c) 2004 Dirk Koopman G1TLH
|
|
#
|
|
|
|
use strict;
|
|
|
|
package Thingy;
|
|
|
|
use vars qw($VERSION $BRANCH);
|
|
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
|
|
$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
|
|
$main::build += $VERSION;
|
|
$main::branch += $BRANCH;
|
|
|
|
use DXChannel;
|
|
use DXDebug;
|
|
|
|
# we expect all thingies to be subclassed
|
|
sub new
|
|
{
|
|
my $class = shift;
|
|
my $thing = {@_};
|
|
|
|
bless $thing, $class;
|
|
return $thing;
|
|
}
|
|
|
|
# send it out in the format asked for, if available
|
|
sub send
|
|
{
|
|
my $thing = shift;
|
|
my $chan = shift;
|
|
my $class;
|
|
if (@_) {
|
|
$class = shift;
|
|
} elsif ($chan->isa('DXChannel')) {
|
|
$class = ref $chan;
|
|
}
|
|
|
|
# generate the line which may (or not) be cached
|
|
my @out;
|
|
if (my $ref = $thing->{class}) {
|
|
push @out, ref $ref ? @$ref : $ref;
|
|
} else {
|
|
no strict 'refs';
|
|
my $sub = "gen_$class";
|
|
push @out, $thing->$sub() if $thing->can($sub);
|
|
}
|
|
$chan->send(@out) if @out;
|
|
}
|
|
|
|
|
|
1;
|
|
|