From: minima <minima>
Date: Fri, 14 Sep 2001 18:00:52 +0000 (+0000)
Subject: add it!
X-Git-Tag: R_1_48~12
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=599b259cd306211ce8e049aa2a16c8a3fbbcb73e;p=spider.git

add it!
---

diff --git a/perl/Script.pm b/perl/Script.pm
new file mode 100644
index 00000000..276aae5d
--- /dev/null
+++ b/perl/Script.pm
@@ -0,0 +1,61 @@
+#
+# module to do startup script handling
+#
+# Copyright (c) 2001 Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+package Script;
+
+use strict;
+
+use DXUtil;
+use DXDebug;
+use DXChannel;
+use DXCommandmode;
+use DXVars;
+use IO::File;
+
+use vars qw($VERSION $BRANCH);
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0;
+$main::build += $VERSION;
+$main::branch += $BRANCH;
+
+my $base = "$main::root/scripts";
+
+sub new
+{
+	my $pkg = shift;
+	my $script = shift;
+	my $fn = "$base/$script";
+
+	my $fh = new IO::File $fn;
+	return undef unless $fh;
+	my $self = bless {call => $script}, $pkg;
+	my @lines;
+	while (<$fh>) {
+		chomp;
+		push @lines, $_;
+	}
+	$fh->close;
+	$self->{lines} = \@lines;
+	return $self;
+}
+
+sub run
+{
+	my $self = shift;
+	my $dxchan = shift;
+	foreach my $l (@{$self->{lines}}) {
+		unless ($l =~ /^\s*\#/ || $l =~ /^\s*$/) {
+			my @out = DXCommandmode::run_cmd($dxchan, $l);
+			if ($dxchan->can('send_ans')) {
+				$dxchan->send_ans(@out);
+			} else {
+				dbg($_) for @out;
+			}
+		}
+	}
+}