11 $blosxom::version="is a proper perl module too much to ask?";
12 do "/usr/bin/markdown";
15 $ENV{PATH}="/usr/local/bin:/usr/bin:/bin";
16 my ($srcdir, $templatedir, $destdir, %links, %oldlinks, %oldpagemtime,
17 %renderedfiles, %pagesources);
18 my $wiki_link_regexp=qr/\[\[([^\s]+)\]\]/;
19 my $wiki_file_regexp=qr/(^[-A-Za-z0-9_.:\/+]+$)/;
20 my $wiki_file_prune_regexp=qr!((^|/).svn/|\.\.|^\.|\/\.|\.html?$)!;
23 my $default_pagetype=".mdwn";
32 die "usage: ikiwiki [options] source templates dest\n";
37 print "Content-type: text/html\n\n";
38 print misctemplate("Error", "<p>Error: @_</p>");
48 print "@_\n" if $verbose;
51 print STDERR "@_\n" if $verbose;
58 return (stat($page))[9];
61 sub possibly_foolish_untaint ($) { #{{{
63 my ($untainted)=$tainted=~/(.*)/;
67 sub basename ($) { #{{{
74 sub dirname ($) { #{{{
81 sub pagetype ($) { #{{{
84 if ($page =~ /\.mdwn$/) {
92 sub pagename ($) { #{{{
95 my $type=pagetype($file);
97 $page=~s/\Q$type\E*$// unless $type eq 'unknown';
101 sub htmlpage ($) { #{{{
104 return $page.".html";
107 sub readfile ($) { #{{{
111 open (IN, "$file") || error("failed to read $file: $!");
117 sub writefile ($$) { #{{{
121 my $dir=dirname($file);
124 foreach my $s (split(m!/+!, $dir)) {
127 mkdir($d) || error("failed to create directory $d: $!");
132 open (OUT, ">$file") || error("failed to write $file: $!");
137 sub findlinks ($) { #{{{
141 while ($content =~ /$wiki_link_regexp/g) {
147 # Given a page and the text of a link on the page, determine which existing
148 # page that link best points to. Prefers pages under a subdirectory with
149 # the same name as the source page, failing that goes down the directory tree
150 # to the base looking for matching pages.
151 sub bestlink ($$) { #{{{
158 $l.="/" if length $l;
161 if (exists $links{$l}) {
162 #debug("for $page, \"$link\", use $l");
165 } while $cwd=~s!/?[^/]+$!!;
167 #print STDERR "warning: page $page, broken link: $link\n";
171 sub isinlinableimage ($) { #{{{
174 $file=~/\.(png|gif|jpg|jpeg)$/;
180 my $noimagelink=shift;
182 my $bestlink=bestlink($page, $link);
184 return $link if $page eq $bestlink;
186 # TODO BUG: %renderedfiles may not have it, if the linked to page
187 # was also added and isn't yet rendered! Note that this bug is
188 # masked by the bug mentioned below that makes all new files
190 if (! grep { $_ eq $bestlink } values %renderedfiles) {
191 $bestlink=htmlpage($bestlink);
193 if (! grep { $_ eq $bestlink } values %renderedfiles) {
194 return "<a href=\"$cgiurl?do=create&page=$link&from=$page\">?</a>$link"
197 $bestlink=File::Spec->abs2rel($bestlink, dirname($page));
199 if (! $noimagelink && isinlinableimage($bestlink)) {
200 return "<img src=\"$bestlink\">";
202 return "<a href=\"$bestlink\">$link</a>";
205 sub linkify ($$) { #{{{
209 $content =~ s/$wiki_link_regexp/htmllink(pagename($file), $1)/eg;
214 sub htmlize ($$) { #{{{
218 if ($type eq '.mdwn') {
219 return Markdown::Markdown($content);
222 error("htmlization of $type not supported");
226 sub backlinks ($) { #{{{
230 foreach my $p (keys %links) {
231 next if bestlink($page, $p) eq $page;
232 if (grep { length $_ && bestlink($p, $_) eq $page } @{$links{$p}}) {
233 my $href=File::Spec->abs2rel(htmlpage($p), dirname($page));
235 # Trim common dir prefixes from both pages.
237 my $page_trimmed=$page;
239 1 while (($dir)=$page_trimmed=~m!^([^/]+/)!) &&
241 $p_trimmed=~s/^\Q$dir\E// &&
242 $page_trimmed=~s/^\Q$dir\E//;
244 push @links, { url => $href, page => $p_trimmed };
248 return sort { $a->{page} cmp $b->{page} } @links;
251 sub parentlinks ($) { #{{{
258 foreach my $dir (reverse split("/", $page)) {
260 unshift @ret, { url => "$path$dir.html", page => $dir };
267 unshift @ret, { url => $path , page => $wikiname };
271 sub indexlink () { #{{{
272 return "<a href=\"$url\">$wikiname</a>";
275 sub finalize ($$) { #{{{
279 my $title=basename($page);
282 my $template=HTML::Template->new(blind_cache => 1,
283 filename => "$templatedir/page.tmpl");
285 if (length $cgiurl) {
286 $template->param(editurl => "$cgiurl?do=edit&page=$page");
288 $template->param(recentchangesurl => "$cgiurl?do=recentchanges");
292 if (length $historyurl) {
294 $u=~s/\[\[\]\]/$pagesources{$page}/g;
295 $template->param(historyurl => $u);
300 wikiname => $wikiname,
301 parentlinks => [parentlinks($page)],
303 backlinks => [backlinks($page)],
306 return $template->output;
309 # Important security check. Make sure to call this before saving any files
310 # to the source directory.
311 sub check_overwrite ($$) { #{{{
315 if (! exists $renderedfiles{$src} && -e $dest) {
316 error("$dest exists and was not rendered from $src before, not overwriting");
320 sub render ($) { #{{{
323 my $type=pagetype($file);
324 my $content=readfile("$srcdir/$file");
325 if ($type ne 'unknown') {
326 my $page=pagename($file);
328 $links{$page}=[findlinks($content)];
330 $content=linkify($content, $file);
331 $content=htmlize($type, $content);
332 $content=finalize($content, $page);
334 check_overwrite("$destdir/".htmlpage($page), $page);
335 writefile("$destdir/".htmlpage($page), $content);
336 $oldpagemtime{$page}=time;
337 $renderedfiles{$page}=htmlpage($page);
341 check_overwrite("$destdir/$file", $file);
342 writefile("$destdir/$file", $content);
343 $oldpagemtime{$file}=time;
344 $renderedfiles{$file}=$file;
348 sub loadindex () { #{{{
349 open (IN, "$srcdir/.ikiwiki/index") || return;
351 $_=possibly_foolish_untaint($_);
353 my ($mtime, $file, $rendered, @links)=split(' ', $_);
354 my $page=pagename($file);
355 $pagesources{$page}=$file;
356 $oldpagemtime{$page}=$mtime;
357 $oldlinks{$page}=[@links];
358 $links{$page}=[@links];
359 $renderedfiles{$page}=$rendered;
364 sub saveindex () { #{{{
365 if (! -d "$srcdir/.ikiwiki") {
366 mkdir("$srcdir/.ikiwiki");
368 open (OUT, ">$srcdir/.ikiwiki/index") || error("cannot write to index: $!");
369 foreach my $page (keys %oldpagemtime) {
370 print OUT "$oldpagemtime{$page} $pagesources{$page} $renderedfiles{$page} ".
371 join(" ", @{$links{$page}})."\n"
372 if $oldpagemtime{$page};
377 sub rcs_update () { #{{{
378 if (-d "$srcdir/.svn") {
379 if (system("svn", "update", "--quiet", $srcdir) != 0) {
380 warn("svn update failed\n");
385 sub rcs_commit ($) { #{{{
388 if (-d "$srcdir/.svn") {
389 if (system("svn", "commit", "--quiet", "-m",
390 possibly_foolish_untaint($message), $srcdir) != 0) {
391 warn("svn commit failed\n");
396 sub rcs_add ($) { #{{{
399 if (-d "$srcdir/.svn") {
400 my $parent=dirname($file);
401 while (! -d "$srcdir/$parent/.svn") {
403 $parent=dirname($file);
406 if (system("svn", "add", "--quiet", "$srcdir/$file") != 0) {
407 warn("svn add failed\n");
412 sub rcs_recentchanges ($) { #{{{
416 eval q{use Date::Parse};
417 eval q{use Time::Duration};
419 if (-d "$srcdir/.svn") {
420 my $info=`LANG=C svn info $srcdir`;
421 my ($svn_url)=$info=~/^URL: (.*)$/m;
423 # FIXME: currently assumes that the wiki is somewhere
424 # under trunk in svn, doesn't support other layouts.
425 my ($svn_base)=$svn_url=~m!(/trunk(?:/.*)?)$!;
427 my $div=qr/^--------------------+$/;
428 my $infoline=qr/^r(\d+)\s+\|\s+([^\s]+)\s+\|\s+(\d+-\d+-\d+\s+\d+:\d+:\d+\s+[-+]?\d+).*/;
430 my ($rev, $user, $when, @pages, @message);
431 foreach (`LANG=C svn log -v '$svn_url'`) {
433 if ($state eq 'start' && /$div/) {
436 elsif ($state eq 'header' && /$infoline/) {
439 $when=concise(ago(time - str2time($3)));
441 elsif ($state eq 'header' && /^\s+[A-Z]\s+\Q$svn_base\E\/(.+)$/) {
442 push @pages, { link => htmllink("", pagename($1), 1) }
445 elsif ($state eq 'header' && /^$/) {
448 elsif ($state eq 'body' && /$div/) {
449 if (defined $message[0] &&
450 $message[0]=~/^web commit by (\w+)(.*)/) {
455 push @ret, { rev => $rev, user => $user,
456 when => $when, message => [@message],
457 pages => [@pages] } if @pages;
458 return @ret if @ret >= $num;
461 $rev=$user=$when=undef;
464 elsif ($state eq 'body') {
465 push @message, {line => $_},
477 my $dir=dirname($file);
478 while (rmdir($dir)) {
483 sub refresh () { #{{{
484 # Find existing pages.
490 if (/$wiki_file_prune_regexp/) {
491 $File::Find::prune=1;
494 my ($f)=/$wiki_file_regexp/; # untaint
496 warn("skipping bad filename $_\n");
499 $f=~s/^\Q$srcdir\E\/?//;
501 $exists{pagename($f)}=1;
509 # check for added or removed pages
511 foreach my $file (@files) {
512 my $page=pagename($file);
513 if (! $oldpagemtime{$page}) {
514 debug("new page $page");
517 $pagesources{$page}=$file;
521 foreach my $page (keys %oldpagemtime) {
522 if (! $exists{$page}) {
523 debug("removing old page $page");
524 push @del, $renderedfiles{$page};
525 prune($destdir."/".$renderedfiles{$page});
526 delete $renderedfiles{$page};
527 $oldpagemtime{$page}=0;
528 delete $pagesources{$page};
532 # render any updated files
533 foreach my $file (@files) {
534 my $page=pagename($file);
536 if (! exists $oldpagemtime{$page} ||
537 mtime("$srcdir/$file") > $oldpagemtime{$page}) {
538 debug("rendering changed file $file");
544 # if any files were added or removed, check to see if each page
545 # needs an update due to linking to them
546 # TODO: inefficient; pages may get rendered above and again here;
547 # problem is the bestlink may have changed and we won't know until
550 FILE: foreach my $file (@files) {
551 my $page=pagename($file);
552 foreach my $f (@add, @del) {
554 foreach my $link (@{$links{$page}}) {
555 if (bestlink($page, $link) eq $p) {
556 debug("rendering $file, which links to $p");
566 # handle backlinks; if a page has added/removed links, update the
568 # TODO: inefficient; pages may get rendered above and again here;
569 # problem is the backlinks could be wrong in the first pass render
573 foreach my $file (keys %rendered, @del) {
574 my $page=pagename($file);
575 if (exists $links{$page}) {
576 foreach my $link (@{$links{$page}}) {
577 $link=bestlink($page, $link);
579 ! exists $oldlinks{$page} ||
580 ! grep { $_ eq $link } @{$oldlinks{$page}}) {
581 $linkchanged{$link}=1;
585 if (exists $oldlinks{$page}) {
586 foreach my $link (@{$oldlinks{$page}}) {
587 $link=bestlink($page, $link);
589 ! exists $links{$page} ||
590 ! grep { $_ eq $link } @{$links{$page}}) {
591 $linkchanged{$link}=1;
596 foreach my $link (keys %linkchanged) {
597 my $linkfile=$pagesources{$link};
598 if (defined $linkfile) {
599 debug("rendering $linkfile, to update its backlinks");
606 # Generates a C wrapper program for running ikiwiki in a specific way.
607 # The wrapper may be safely made suid.
608 sub gen_wrapper ($$) { #{{{
609 my ($svn, $rebuild)=@_;
611 eval q{use Cwd 'abs_path'};
612 $srcdir=abs_path($srcdir);
613 $destdir=abs_path($destdir);
614 my $this=abs_path($0);
616 error("$this doesn't seem to be executable");
619 my @params=($srcdir, $templatedir, $destdir, "--wikiname=$wikiname");
620 push @params, "--verbose" if $verbose;
621 push @params, "--rebuild" if $rebuild;
622 push @params, "--nosvn" if !$svn;
623 push @params, "--cgi" if $cgi;
624 push @params, "--url=$url" if $url;
625 push @params, "--cgiurl=$cgiurl" if $cgiurl;
626 push @params, "--historyurl=$historyurl" if $historyurl;
627 push @params, "--anonok" if $anonok;
628 my $params=join(" ", @params);
630 foreach my $p ($this, $this, @params) {
636 push @envsave, qw{REMOTE_ADDR QUERY_STRING REQUEST_METHOD REQUEST_URI
637 CONTENT_TYPE CONTENT_LENGTH GATEWAY_INTERFACE
638 HTTP_COOKIE} if $cgi;
640 foreach my $var (@envsave) {
642 if ((s=getenv("$var")))
643 asprintf(&newenviron[i++], "%s=%s", "$var", s);
647 open(OUT, ">ikiwiki-wrap.c") || error("failed to write ikiwiki-wrap.c: $!");;
649 /* A wrapper for ikiwiki, can be safely made suid. */
656 extern char **environ;
658 int main (int argc, char **argv) {
659 /* Sanitize environment. */
661 char *newenviron[$#envsave+3];
664 newenviron[i++]="HOME=$ENV{HOME}";
668 if (argc == 2 && strcmp(argv[1], "--params") == 0) {
669 printf("$params\\n");
674 perror("failed to run $this");
679 if (system("gcc", "ikiwiki-wrap.c", "-o", "ikiwiki-wrap") != 0) {
680 error("failed to compile ikiwiki-wrap.c");
682 unlink("ikiwiki-wrap.c");
683 print "successfully generated ikiwiki-wrap\n";
687 sub misctemplate ($$) { #{{{
691 my $template=HTML::Template->new(
692 filename => "$templatedir/misc.tmpl"
696 indexlink => indexlink(),
697 wikiname => $wikiname,
698 pagebody => $pagebody,
700 return $template->output;
703 sub cgi_recentchanges ($) { #{{{
706 my $template=HTML::Template->new(
707 filename => "$templatedir/recentchanges.tmpl"
710 title => "RecentChanges",
711 indexlink => indexlink(),
712 wikiname => $wikiname,
713 changelog => [rcs_recentchanges(100)],
715 print $q->header, $template->output;
718 sub userinfo_get ($$) { #{{
722 eval q{use Storable};
723 my $userdata=eval{ Storable::lock_retrieve("$srcdir/.ikiwiki/userdb") };
724 if (! defined $userdata || ! ref $userdata ||
725 ! exists $userdata->{$user} || ! ref $userdata->{$user}) {
728 return $userdata->{$user}->{$field};
731 sub userinfo_set ($$) { #{{
735 eval q{use Storable};
736 my $userdata=eval{ Storable::lock_retrieve("$srcdir/.ikiwiki/userdb") };
737 if (! defined $userdata || ! ref $userdata) {
740 $userdata->{$user}=$info;
741 my $oldmask=umask(077);
742 my $ret=Storable::lock_store($userdata, "$srcdir/.ikiwiki/userdb");
747 sub cgi_signin ($$) { #{{{
751 eval q{use CGI::FormBuilder};
752 my $form = CGI::FormBuilder->new(
753 title => "$wikiname signin",
754 fields => [qw(do page name password confirm_password email)],
758 confirm_password => {
759 perl => q{eq $form->field("password")},
766 action => $q->request_uri,
768 template => (-e "$templatedir/signin.tmpl" ? "$templatedir/signin.tmpl" : "")
771 $form->field(name => "name", required => 0);
772 $form->field(name => "do", type => "hidden");
773 $form->field(name => "page", type => "hidden");
774 $form->field(name => "password", type => "password", required => 0);
775 $form->field(name => "confirm_password", type => "password", required => 0);
776 $form->field(name => "email", required => 0);
777 if ($q->param("do") ne "signin") {
778 $form->text("You need to log in before you can edit pages.");
781 if ($form->submitted) {
782 # Set required fields based on how form was submitted.
784 "Login" => [qw(name password)],
785 "Register" => [qw(name password confirm_password email)],
786 "Mail Password" => [qw(name)],
788 foreach my $opt (@{$required{$form->submitted}}) {
789 $form->field(name => $opt, required => 1);
792 # Validate password differently depending on how
793 # form was submitted.
794 if ($form->submitted eq 'Login') {
798 length $form->field("name") &&
799 shift eq userinfo_get($form->field("name"), 'password');
802 $form->field(name => "name", validate => '/^\w+$/');
805 $form->field(name => "password", validate => 'VALUE');
807 # And make sure the entered name exists when logging
808 # in or sending email, and does not when registering.
809 if ($form->submitted eq 'Register') {
815 ! userinfo_get($name, "regdate");
825 userinfo_get($name, "regdate");
831 # First time settings.
832 $form->field(name => "name", comment => "use FirstnameLastName");
833 $form->field(name => "confirm_password", comment => "(only needed");
834 $form->field(name => "email", comment => "for registration)");
835 if ($session->param("name")) {
836 $form->field(name => "name", value => $session->param("name"));
840 if ($form->submitted && $form->validate) {
841 if ($form->submitted eq 'Login') {
842 $session->param("name", $form->field("name"));
843 if (defined $form->field("do") &&
844 $form->field("do") ne 'signin') {
846 "$cgiurl?do=".$form->field("do").
847 "&page=".$form->field("page"));
850 print $q->redirect($url);
853 elsif ($form->submitted eq 'Register') {
854 my $user_name=$form->field('name');
855 if (userinfo_set($user_name, {
856 'email' => $form->field('email'),
857 'password' => $form->field('password'),
860 $form->field(name => "confirm_password", type => "hidden");
861 $form->field(name => "email", type => "hidden");
862 $form->text("Registration successful. Now you can Login.");
863 print $session->header();
864 print misctemplate($form->title, $form->render(submit => ["Login"]));
867 error("Error saving registration.");
870 elsif ($form->submitted eq 'Mail Password') {
871 my $user_name=$form->field("name");
872 my $template=HTML::Template->new(
873 filename => "$templatedir/passwordmail.tmpl"
876 user_name => $user_name,
877 user_password => userinfo_get($user_name, "password"),
879 wikiname => $wikiname,
880 REMOTE_ADDR => $ENV{REMOTE_ADDR},
883 eval q{use Mail::Sendmail};
884 my ($fromhost) = $cgiurl =~ m!/([^/]+)!;
885 print STDERR "$< $> >>> $cgiurl ".(getpwuid($>))[0]."@".$fromhost."\n";
887 To => userinfo_get($user_name, "email"),
888 From => "$wikiname admin <".(getpwuid($>))[0]."@".$fromhost.">",
889 Subject => "$wikiname information",
890 Message => $template->output,
891 ) or error("Failed to send mail");
893 $form->text("Your password has been emailed to you.");
894 $form->field(name => "name", required => 0);
895 print $session->header();
896 print misctemplate($form->title, $form->render(submit => ["Login", "Register", "Mail Password"]));
900 print $session->header();
901 print misctemplate($form->title, $form->render(submit => ["Login", "Register", "Mail Password"]));
905 sub cgi_editpage ($$) { #{{{
909 eval q{use CGI::FormBuilder};
910 my $form = CGI::FormBuilder->new(
911 fields => [qw(do from page content comments)],
918 action => $q->request_uri,
920 template => "$templatedir/editpage.tmpl"
923 my ($page)=$form->param('page')=~/$wiki_file_regexp/;
924 if (! defined $page || ! length $page || $page ne $q->param('page') ||
925 $page=~/$wiki_file_prune_regexp/ || $page=~/^\//) {
926 error("bad page name");
930 $form->field(name => "do", type => 'hidden');
931 $form->field(name => "from", type => 'hidden');
932 $form->field(name => "page", value => "$page", force => 1);
933 $form->field(name => "comments", type => "text", size => 80);
934 $form->field(name => "content", type => "textarea", rows => 20,
937 if (! $form->submitted || ! $form->validate) {
938 if ($form->field("do") eq "create") {
939 if (exists $pagesources{lc($page)}) {
940 # hmm, someone else made the page in the
942 print $q->redirect("$url/".htmlpage($page));
947 my ($from)=$form->param('from')=~/$wiki_file_regexp/;
948 if (! defined $from || ! length $from ||
949 $from ne $form->param('from') ||
950 $from=~/$wiki_file_prune_regexp/ || $from=~/^\//) {
956 push @page_locs, $dir.$page;
957 push @page_locs, "$from/$page";
958 while (length $dir) {
960 push @page_locs, $dir.$page;
964 $form->tmpl_param("page_select", 1);
965 $form->field(name => "page", type => 'select',
966 options => \@page_locs);
967 $form->title("creating $page");
969 elsif ($form->field("do") eq "edit") {
971 if (exists $pagesources{lc($page)}) {
972 $content=readfile("$srcdir/$pagesources{lc($page)}");
973 $content=~s/\n/\r\n/g;
975 $form->tmpl_param("page_select", 0);
976 $form->field(name => "content", value => $content,
978 $form->field(name => "page", type => 'hidden');
979 $form->title("editing $page");
982 $form->tmpl_param("can_commit", $svn);
983 $form->tmpl_param("indexlink", indexlink());
984 print $form->render(submit => ["Save Page"]);
988 my $file=$page.$default_pagetype;
990 if (exists $pagesources{lc($page)}) {
991 $file=$pagesources{lc($page)};
995 my $content=$form->field('content');
996 $content=~s/\r\n/\n/g;
998 writefile("$srcdir/$file", $content);
1000 my $message="web commit ";
1001 if ($session->param("name")) {
1002 $message.="by ".$session->param("name");
1005 $message.="from $ENV{REMOTE_ADDR}";
1007 if (defined $form->field('comments') &&
1008 length $form->field('comments')) {
1009 $message.=": ".$form->field('comments');
1016 # presumably the commit will trigger an update
1018 rcs_commit($message);
1024 print $q->redirect("$url/".htmlpage($page));
1030 eval q{use CGI::Session};
1034 my $do=$q->param('do');
1035 if (! defined $do || ! length $do) {
1036 error("\"do\" parameter missing");
1039 # This does not need a session.
1040 if ($do eq 'recentchanges') {
1041 cgi_recentchanges($q);
1045 CGI::Session->name("ikiwiki_session");
1047 my $oldmask=umask(077);
1048 my $session = CGI::Session->new("driver:db_file", $q,
1049 { FileName => "$srcdir/.ikiwiki/sessions.db" });
1052 # Everything below this point needs the user to be signed in.
1053 if ((! $anonok && ! defined $session->param("name") ||
1054 ! userinfo_get($session->param("name"), "regdate")) || $do eq 'signin') {
1055 cgi_signin($q, $session);
1057 # Force session flush with safe umask.
1058 my $oldmask=umask(077);
1065 if ($do eq 'create' || $do eq 'edit') {
1066 cgi_editpage($q, $session);
1069 error("unknown do parameter");
1076 if (grep /^-/, @ARGV) {
1077 eval {use Getopt::Long};
1079 "wikiname=s" => \$wikiname,
1080 "verbose|v" => \$verbose,
1081 "rebuild" => \$rebuild,
1082 "wrapper" => \$wrapper,
1084 "anonok!" => \$anonok,
1087 "cgiurl=s" => \$cgiurl,
1088 "historyurl=s" => \$historyurl,
1091 usage() unless @ARGV == 3;
1092 ($srcdir) = possibly_foolish_untaint(shift);
1093 ($templatedir) = possibly_foolish_untaint(shift);
1094 ($destdir) = possibly_foolish_untaint(shift);
1096 if ($cgi && ! length $url) {
1097 error("Must specify url to wiki with --url when using --cgi");
1100 gen_wrapper($svn, $rebuild) if $wrapper;
1101 memoize('pagename');
1102 memoize('bestlink');
1103 loadindex() unless $rebuild;
1108 rcs_update() if $svn;