package WebBack::Options; use strict; use Digest::MD5 qw(md5 md5_base64); BEGIN { use Exporter (); our ( $VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS ); $VERSION = 0.05; @ISA = qw(Exporter); @EXPORT = ( ); %EXPORT_TAGS = ( ); @EXPORT_OK = ( ); } our @EXPORT_OK; sub new { my $type = shift; my $request = shift; my $self = bless { @_ }; $self->{URL} = $request->url( -relative => 1 ); $self->{mode} = $request->param( "mode" ); return $self; } sub update { my $self = shift; my $request = shift; } sub show { my $self = shift; my $colors = shift; print "\n"; print "WebBack Options\n"; print "{bgcolor} . "\" "; print "TEXT=\"" . $colors->{text} . "\" "; print "LINK=\"" . $colors->{link} . "\" "; print "ALINK=\"" . $colors->{alink} . "\" "; print "VLINK=\"" . $colors->{vlink} . "\">\n"; print "
{URL} . "\" METHOD=POST NAME=\"options\">\n"; print "{mode} . "\">\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " \n"; print " \n"; print " Device to Back Up: \n"; print " \n"; print " \n"; print "
\n"; print " Backup Device: \n"; print " \n"; print " \n"; print "
\n"; print " \n"; print "
\n"; print "
"; return; } 1;