#!/usr/bin/perl

sub out {
  my($value)=@_;
  push(@OutPut,$value);
}

sub PrepareOutPut {
  $OutPutString=join("\n",@OutPut);
}

sub SkinPrint{
  my  @EPAGE, $key, $test, $dum, $string_name, $string_name2;
  my ($page)=@_;
  open (PAGE, "$page")||print "error opening page $page";
  @EPAGE=<PAGE>;
  close(PAGE);
  
  foreach $key (@EPAGE){
my    $test=$key;
    while ($test =~ s/\$\$/$1/){
      ($dum, $string_name) = split /\$\$/,$key;
      ($string_name, $dum) = split /\:/,$string_name;
      if ($string_name){
	$string_name2 = \$$string_name;
	$key=~ s/\$\$$string_name\:/$$string_name2/;
	$string_name="";
      }
    }
    
  }
  print @EPAGE;
}

sub SkinOut{
  my @EPAGE, $test, $key, $string_name, $string_name2, $dum;
  my ($page,@OutPut)=@_;
  open (PAGE, "$page")||print "error opening page $page";
  @EPAGE=<PAGE>;
  close(PAGE);  
  foreach $key (@EPAGE){
    $test=$key;
    while ($test =~ s/\$\$//){
      ($dum, $string_name) = split /\$\$/,$key;
      ($string_name, $dum) = split /\:/,$string_name;
      if ($string_name){
	$string_name2 = \$$string_name;
	$key=~ s/\$\$$string_name\:/$$string_name2/;
	$string_name="";
      }
    }
    
  }
  push(@OutPut,@EPAGE);
  return (@EPAGE);
}

sub SwapVars{
  my @EPAGE=@_;
  my $key, $test, $dum, $string_name, $string_name2;
  foreach $key (@EPAGE){
    $test=$key;
    while ($test =~ s/\$\$//){
      ($dum, $string_name) = split /\$\$/,$key;
      ($string_name, $dum) = split /\:/,$string_name;
      if ($string_name){
	$string_name2 = \$$string_name;
	$key=~ s/\$\$$string_name\:/$$string_name2/;
	$string_name="";
      }
    }
    
  }
return (@EPAGE);
}














1;