#!/usr/bin/perl require './filemin-lib.pl'; &ReadParse(); &get_paths(); if(!-e "$confdir/.bookmarks") { utime time, time, "$configdir/.bookmarks"; } $bookmarks = &read_file_lines($confdir.'/.bookmarks'); push @$bookmarks, $path; &flush_file_lines("$confdir/.bookmarks"); &redirect("index.cgi?path=".&urlize($path));