summaryrefslogtreecommitdiff
path: root/client
diff options
context:
space:
mode:
authorAndrew Gaffney <agaffney@gentoo.org>2008-01-05 03:34:14 +0000
committerAndrew Gaffney <agaffney@gentoo.org>2008-01-05 03:34:14 +0000
commitd8c52e5e9a848bab9e77a4db777027c3d710e57e (patch)
tree46b4885a36f86aa383792cc8db9d0dd01714ee84 /client
parentfixed up the expansion w/ one last query. (diff)
downloadscire-d8c52e5e9a848bab9e77a4db777027c3d710e57e.tar.gz
scire-d8c52e5e9a848bab9e77a4db777027c3d710e57e.tar.bz2
scire-d8c52e5e9a848bab9e77a4db777027c3d710e57e.zip
initial commit of Scire.pm
svn path=/branches/new-fu/; revision=320
Diffstat (limited to 'client')
-rw-r--r--client/Scire.pm37
1 files changed, 37 insertions, 0 deletions
diff --git a/client/Scire.pm b/client/Scire.pm
new file mode 100644
index 0000000..8b94082
--- /dev/null
+++ b/client/Scire.pm
@@ -0,0 +1,37 @@
+package Scire::Job;
+
+sub new {
+ my $proto = shift;
+ my $class = ref($proto) || $proto;
+ my $filename = shift;
+ my $self = {};
+ bless ($self, $class);
+ if(defined $filename) {
+ $self->set_filename($filename);
+ }
+ return $self;
+}
+
+sub set_filename {
+ my $self = shift;
+ my $filename = shift;
+ $self->{filename} = $filename;
+ my $jobcontents;
+ my $jobdata;
+ open JOB, "< ${filename}" or die "Can't open file ${filename}";
+ $jobcontents = join("", <JOB>);
+ close JOB;
+ $jobdata = eval($jobcontents);
+ ($@) and print "ERROR: Could not parse job file ${filename}!\n";
+ if(defined $jobdata->{script}) {
+ for(keys %{$jobdata->{script}}) {
+ $self->{$_} = $jobdata->{script}->{$_};
+ }
+ }
+ for(keys %{$jobdata}) {
+ $self->{$_} = $jobdata->{$_};
+ }
+}
+
+1;
+