mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
18 lines
332 B
Perl
Executable File
18 lines
332 B
Perl
Executable File
#!/usr/local/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));
|