Lines 131-136
sub create_input {
Link Here
|
131 |
$month = sprintf( "%02d", $month ); |
131 |
$month = sprintf( "%02d", $month ); |
132 |
$day = sprintf( "%02d", $day ); |
132 |
$day = sprintf( "%02d", $day ); |
133 |
$value =~ s/YYYY/$year/g; |
133 |
$value =~ s/YYYY/$year/g; |
|
|
134 |
$value =~ s/YY/substr($year,2)/eg; |
134 |
$value =~ s/MM/$month/g; |
135 |
$value =~ s/MM/$month/g; |
135 |
$value =~ s/DD/$day/g; |
136 |
$value =~ s/DD/$day/g; |
136 |
} |
137 |
} |
137 |
- |
|
|