From 2a1ebcdeab78e1988a61a2c7e97c49dcbf4507c3 Mon Sep 17 00:00:00 2001 From: johnkeis Date: Mon, 3 Feb 2003 03:18:56 +0000 Subject: [PATCH] Processors for showing different fields differently --- .../Tinderbox3/FieldProcessors/Graph.pm | 20 +++++++++++++++++++ .../scripts/Tinderbox3/FieldProcessors/URL.pm | 20 +++++++++++++++++++ .../Tinderbox3/FieldProcessors/Warn.pm | 20 +++++++++++++++++++ .../Tinderbox3/FieldProcessors/default.pm | 20 +++++++++++++++++++ .../Tinderbox3/FieldProcessors/Graph.pm | 20 +++++++++++++++++++ .../server/Tinderbox3/FieldProcessors/URL.pm | 20 +++++++++++++++++++ .../server/Tinderbox3/FieldProcessors/Warn.pm | 20 +++++++++++++++++++ .../Tinderbox3/FieldProcessors/default.pm | 20 +++++++++++++++++++ 8 files changed, 160 insertions(+) create mode 100644 webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/Graph.pm create mode 100644 webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/URL.pm create mode 100644 webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/Warn.pm create mode 100644 webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/default.pm create mode 100644 webtools/tinderbox3/server/Tinderbox3/FieldProcessors/Graph.pm create mode 100644 webtools/tinderbox3/server/Tinderbox3/FieldProcessors/URL.pm create mode 100644 webtools/tinderbox3/server/Tinderbox3/FieldProcessors/Warn.pm create mode 100644 webtools/tinderbox3/server/Tinderbox3/FieldProcessors/default.pm diff --git a/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/Graph.pm b/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/Graph.pm new file mode 100644 index 000000000000..87ad23f819ec --- /dev/null +++ b/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/Graph.pm @@ -0,0 +1,20 @@ +package Tinderbox3::FieldProcessors::Graph; + +use strict; + +sub new { + my $class = shift; + $class = ref($class) || $class; + my $this = {}; + bless $this, $class; + + return $this; +} + +sub process_field { + my $this = shift; + my ($tree_columns, $field, $value) = @_; + return "$field: $value"; +} + +1 diff --git a/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/URL.pm b/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/URL.pm new file mode 100644 index 000000000000..31797f7fe494 --- /dev/null +++ b/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/URL.pm @@ -0,0 +1,20 @@ +package Tinderbox3::FieldProcessors::URL; + +use strict; + +sub new { + my $class = shift; + $class = ref($class) || $class; + my $this = {}; + bless $this, $class; + + return $this; +} + +sub process_field { + my $this = shift; + my ($tree_columns, $field, $value) = @_; + return "$field"; +} + +1 diff --git a/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/Warn.pm b/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/Warn.pm new file mode 100644 index 000000000000..400a279c3b65 --- /dev/null +++ b/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/Warn.pm @@ -0,0 +1,20 @@ +package Tinderbox3::FieldProcessors::Warn; + +use strict; + +sub new { + my $class = shift; + $class = ref($class) || $class; + my $this = {}; + bless $this, $class; + + return $this; +} + +sub process_field { + my $this = shift; + my ($tree_columns, $field, $value) = @_; + return "$field: $value"; +} + +1 diff --git a/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/default.pm b/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/default.pm new file mode 100644 index 000000000000..51c4d25e8230 --- /dev/null +++ b/webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/default.pm @@ -0,0 +1,20 @@ +package Tinderbox3::FieldProcessors::default; + +use strict; + +sub new { + my $class = shift; + $class = ref($class) || $class; + my $this = {}; + bless $this, $class; + + return $this; +} + +sub process_field { + my $this = shift; + my ($tree_columns, $field, $value) = @_; + return "$field: $value"; +} + +1 diff --git a/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/Graph.pm b/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/Graph.pm new file mode 100644 index 000000000000..87ad23f819ec --- /dev/null +++ b/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/Graph.pm @@ -0,0 +1,20 @@ +package Tinderbox3::FieldProcessors::Graph; + +use strict; + +sub new { + my $class = shift; + $class = ref($class) || $class; + my $this = {}; + bless $this, $class; + + return $this; +} + +sub process_field { + my $this = shift; + my ($tree_columns, $field, $value) = @_; + return "$field: $value"; +} + +1 diff --git a/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/URL.pm b/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/URL.pm new file mode 100644 index 000000000000..31797f7fe494 --- /dev/null +++ b/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/URL.pm @@ -0,0 +1,20 @@ +package Tinderbox3::FieldProcessors::URL; + +use strict; + +sub new { + my $class = shift; + $class = ref($class) || $class; + my $this = {}; + bless $this, $class; + + return $this; +} + +sub process_field { + my $this = shift; + my ($tree_columns, $field, $value) = @_; + return "$field"; +} + +1 diff --git a/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/Warn.pm b/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/Warn.pm new file mode 100644 index 000000000000..400a279c3b65 --- /dev/null +++ b/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/Warn.pm @@ -0,0 +1,20 @@ +package Tinderbox3::FieldProcessors::Warn; + +use strict; + +sub new { + my $class = shift; + $class = ref($class) || $class; + my $this = {}; + bless $this, $class; + + return $this; +} + +sub process_field { + my $this = shift; + my ($tree_columns, $field, $value) = @_; + return "$field: $value"; +} + +1 diff --git a/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/default.pm b/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/default.pm new file mode 100644 index 000000000000..51c4d25e8230 --- /dev/null +++ b/webtools/tinderbox3/server/Tinderbox3/FieldProcessors/default.pm @@ -0,0 +1,20 @@ +package Tinderbox3::FieldProcessors::default; + +use strict; + +sub new { + my $class = shift; + $class = ref($class) || $class; + my $this = {}; + bless $this, $class; + + return $this; +} + +sub process_field { + my $this = shift; + my ($tree_columns, $field, $value) = @_; + return "$field: $value"; +} + +1