source: projects/vine-spec-skeleton/tags/release-0.4/lib/VineLinux/VSS/Type.pm @ 663

package VineLinux::VSS::Type;

use HTML::Template;
use FileHandle;

my $output_dir = ".";

sub new {
    my $class = shift;
    bless {}, $class;
}

sub generate {
    my $class = shift;

    die "not implement \n";
}

sub _generate_file {
    my $class = shift;
    my $filename = shift;
    my $content = shift;

    my $fh = new FileHandle "> $output_dir/$filename";
    if (defined $fh) {
        $fh->print($content);
        $fh->close;
    }
   
    return 1;
}

sub _current_time {
    my $class = shift;
    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);

    my $e_mon = sprintf("%s", 
                        ("Jan", "Feb", "Mar", "Apr", "May", "Jun",
                         "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")[$mon]);
    my $e_week = sprintf("%s", 
                         ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")[$wday]);
    
    return sprintf("%s %s %02d %04d", $e_week, $e_mon, $mday, $year + 1900);
}

sub _set_params {
    my $class = shift;
    my $vss = shift;

    my %params = (
        package_name => $vss->package_name,
        packager_fullname => $vss->packager_fullname,
        packager_name => $vss->packager_name,
        packager_email => $vss->packager_email,
        generate_date => $class->_current_time
    );

    return \%params;
}

1;