# FILE: src-board-subs-2 #------------------------------------------------------------------------------- # This script is copyright (c) 1998 by DiscusWare, LLC, all rights reserved. # Its use is subject to the license agreement that can be found at the following # URL: http://www.chem.hope.edu/discus/license #------------------------------------------------------------------------------- #---SEPARATOR---# #REQ:new_file #REQ:get_date_time #REQ:get_number sub add_page { local ($newpage, $type, $url, $target, $tn, $mn, $grp, $datetime_in) = @_; local ($num, $dt, @sublist, $line, $str, $strg, $ts); $owner = $grp if $grp ne ""; $num = &get_number; if ($tn != 0) { $topic_number = $tn; $me_number = $mn; } $url = "$message_url/$topic_number/$num.$ext" if $type ne "LINK"; $dt = &get_date_time('long'); $dt =~ s/\W//g; $newpage = &remove_links($newpage); $url .= "?$dt" if ($type ne "LINK" && !$noqm); &lock("$message_dir/$topic_number/$me_number.$ext"); local ($head, $color, $lm, $ann, $ann_src, $sublist, $about, $about_src, $message, $message_src) = &get_page($topic_number,$me_number); $str = &JavaScript_prepare($newpage); $strg = "onMouseOver=\"return setStatus('$str')\""; $ts = &get_date_time('short'); $ts = $datetime_in if $datetime_in ne ""; $sublist .= "
\n" if $type ne "LINK"; $sublist .= "
\n" if $type eq "LINK"; &set_page($topic_number, $me_number, $head, $color, $lm, $ann, $ann_src, $sublist, $about, $about_src, $message, $message_src); &unlock("$message_dir/$topic_number/$me_number.$ext"); &new_file ($topic_number, $num, $me_number, $owner, $newpage, $type) if $type ne "LINK"; return $num; } #---SEPARATOR---# sub rename_topic_form { local ($oldname, $topic_number, $username, $description_source) = @_; &header; print "