#!/usr/bin/perl
#
package Crypt::makesource;
my $VERSION = '2.01';	# 9-22-02 michael@bizsystems.com

use strict;
use diagnostics;

my ($name,$src) = @ARGV;
my $trgt = $name . '.pm';

open(S,$src) or die "could not open $src: $!";
open(T,">$trgt") or die "could not open $trgt: $!";

print T << "EOF";
#!/usr/bin/perl
# This source file is for the Crypt::$name extension to perl.
#
# It was generated automatically by 'makesource' version $VERSION
# from the contents of:
#	"$src".
# Don't edit this file, edit $src instead.
#
# 	ANY CHANGES MADE HERE WILL BE LOST!
#
EOF

while(<S>) {
  $_ =~ s/My_Module/$name/g;
  print T $_;
}
close S;
close T;

