From 03ff430e8ff2f45f7bf10dc7cf72e7e0efd6c6ff Mon Sep 17 00:00:00 2001 From: "Andrey A. Chernov" Date: Sat, 18 Jun 2005 18:21:52 +0000 Subject: utility for batch modification of LJ permissions or LJ restoring --- www/ljpms/files/patch-ljpms.pl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 www/ljpms/files/patch-ljpms.pl (limited to 'www/ljpms/files/patch-ljpms.pl') diff --git a/www/ljpms/files/patch-ljpms.pl b/www/ljpms/files/patch-ljpms.pl new file mode 100644 index 000000000000..2584b47edb2b --- /dev/null +++ b/www/ljpms/files/patch-ljpms.pl @@ -0,0 +1,17 @@ +--- ljpms.pl.orig Mon Jan 3 15:19:08 2005 ++++ ljpms.pl Sat Jun 18 21:59:45 2005 +@@ -1,4 +1,4 @@ +-#!perl ++#!/usr/local/bin/perl + + # CVS: $Id: ljpms.pl,v 2.5 2005/01/03 12:19:08 sasha Exp $ + # Author: Alexander Nikolaev +@@ -84,7 +84,7 @@ + exit(usage('invalidmode')) unless ($modes{$mode} || $mode =~ /^\d+$/); + exit (usage('noexport')) unless -d LOCALDIR . "$suser/export"; + +-if ($suser ne $user) { # post to someone else's journal ++if ($suser ne $user || $mode eq 'restore') { # post to someone else's journal + exit usage('invalidmode') if ($mode eq 'delete'); + exit usage('invalidmode') if ($mode =~ /^\d+$/); + print "posting ${suser}'s backdated entries to ${user}'s journal\n"; -- cgit v1.2.3