Change password on first login on samba pdc

I was checking the OpenLDAP documentation and noticed that I had a specific module ldap-useradmin -> edit_user.cgi dealing with new users and passwords. Extract the function to help implement my suggestion.

    # Show shadow password options
    if (&in_schema($schema, "shadowLastChange")) {
    print &ui_table_start($text{'uedit_passopts'}, "width=100%", 4, \@tds);

    # Last change date
    print &ui_table_row($text{'change'},
            ($uinfo{'change'} ? &make_date(timelocal(
                                   gmtime($change * 60*60*24)),1) :
             $n eq "" ? $text{'uedit_never'} :
                        $text{'uedit_unknown'}));

    # Expiry date
if ($in{'new'} &&
    $mconfig{'default_expire'} =~ /^(\d+)\/(\d+)\/(\d+)$/) {
	$eday = $1;
	$emon = $2;
	$eyear = $3;
	}
elsif ($expire) {
	@tm = localtime(timelocal(gmtime($expire * 60*60*24)));
	$eday = $tm[3];
	$emon = $tm[4]+1;
	$eyear = $tm[5]+1900;
	}
print &ui_table_row($text{'expire'},
	&useradmin::date_input($eday, $emon, $eyear, 'expire'));

    # Minimum and maximum days for changing
    print &ui_table_row($text{'min'},
            &ui_textbox("min", $in{'new'} ? $mconfig{'default_min'}
				      : $min, 5));
    print &ui_table_row($text{'max'},
            &ui_textbox("max", $in{'new'} ? $mconfig{'default_max'}
				      : $max, 5));

# Password warning days
    print &ui_table_row($text{'warn'},
            &ui_textbox("warn", $in{'new'} ? $mconfig{'default_warn'}
				       : $warn, 5));

# Inactive dats
    print &ui_table_row($text{'inactive'},
            &ui_textbox("inactive", $in{'new'} ?$mconfig{'default_inactive'}
				           : $inactive, 5));

# Force password change at next login
print &ui_table_row(
	$text{'uedit_forcechange'},
		&ui_yesno_radio("forcechange", 0));


print &ui_table_end();
}