head	1.4;

 access;

 symbols;

 locks; strict;

 comment	@# @;

 1.4

 date	2008.01.22.03.21.26;	author TWikiContributor;	state Exp;

 branches;

 next	1.3;

 1.3

 date	2007.01.16.04.12.04;	author TWikiContributor;	state Exp;

 branches;

 next	1.2;

 1.2

 date	2006.06.25.16.26.33;	author TWikiContributor;	state Exp;

 branches;

 next	1.1;

 1.1

 date	2006.02.01.12.01.25;	author TWikiContributor;	state Exp;

 branches;

 next	;

 desc

 @new-topic

 @

 1.4

 log

 @buildrelease

 @

 text

 @---+ Package =TWiki::Store::RcsFile=

 This class is PACKAGE PRIVATE to Store, and should never be

 used from anywhere else. It is the base class of implementations of stores

 that manipulate RCS format files.

 The general contract of the methods on this class and its subclasses

 calls for errors to be signalled by Error::Simple exceptions.

 Refer to Store.pm for models of usage.

 %TOC%

 ---++ ClassMethod *new* <tt>($session,$web,$topic,$attachment)</tt>

 Constructor. There is one object per stored file.

 Note that $web, $topic and $attachment must be untainted!

 ---++ ObjectMethod *finish* <tt>()</tt>

 Break circular references.

 ---++ ObjectMethod *getRevisionInfo* <tt>($version) -> ($rev,$date,$user,$comment)</tt>

    * =$version= if 0 or undef, or out of range (version number > number of revs) will return info about the latest revision.

 Returns (rev, date, user, comment) where rev is the number of the rev for which the info was recovered, date is the date of that rev (epoch s), user is the login name of the user who saved that rev, and comment is the comment associated with the rev.

 Designed to be overridden by subclasses, which can call up to this method

 if file-based rev info is required.

 ---++ ObjectMethod *getLatestRevision* <tt>() -> $text</tt>

 Get the text of the most recent revision

 ---++ ObjectMethod *getLatestRevisionTime* <tt>() -> $text</tt>

 Get the time of the most recent revision

 ---++ ObjectMethod *getWorkArea* <tt>($key) -> $directorypath</tt>

 Gets a private directory uniquely identified by $key. The directory is

 intended as a work area for plugins.

 The standard is a directory named the same as "key" under

 $TWiki::cfg{WorkingDir}/work_areas

 ---++ ObjectMethod *getTopicNames* <tt>() -> @@topics</tt>

 Get list of all topics in a web

    * =$web= - Web name, required, e.g. ='Sandbox'=

 Return a topic list, e.g. =( 'WebChanges',  'WebHome', 'WebIndex', 'WebNotify' )=

 ---++ ObjectMethod *getWebNames* <tt>() -> @@webs</tt>

 Gets a list of names of subwebs in the current web

 ---++ ObjectMethod *searchInWebContent* <tt>($searchString,$web,\@@topics,\%options) -> \%map</tt>

 Search for a string in the content of a web. The search must be over all

 content and all formatted meta-data, though the latter search type is

 deprecated (use searchMetaData instead).

    * =$searchString= - the search string, in egrep format if regex

    * =$web= - The web to search in

    * =\@@topics= - reference to a list of topics to search

    * =\%options= - reference to an options hash

 The =\%options= hash may contain the following options:

    * =type= - if =regex= will perform a egrep-syntax RE search (default '')

    * =casesensitive= - false to ignore case (defaulkt true)

    * =files_without_match= - true to return files only (default false)

 The return value is a reference to a hash which maps each matching topic

 name to a list of the lines in that topic that matched the search,

 as would be returned by 'grep'. If =files_without_match= is specified, it will

 return on the first match in each topic (i.e. it will return only one

 match per topic, and will not return matching lines).

 ---++ ObjectMethod *searchInWebMetaData* <tt>($query,\@@topics) -> \%matches</tt>

 Search for a meta-data expression in the content of a web. =$query= must be a =TWiki::Query= object.

 Returns a reference to a hash that maps the names of topics that all matched

 to the result of the query expression (e.g. if the query expression is

 'TOPICPARENT.name' then you will get back a hash that maps topic names

 to their parent.

 SMELL: this is *really* inefficient!

 ---++ ObjectMethod *moveWeb* <tt>($newWeb)</tt>

 Move a web.

 ---++ ObjectMethod *getRevision* <tt>($version) -> $text</tt>

 Get the text for a given revision. The version number must be an integer.

 *Virtual method* - must be implemented by subclasses

 ---++ ObjectMethod *storedDataExists* <tt>() -> $boolean</tt>

 Establishes if there is stored data associated with this handler.

 ---++ ObjectMethod *getTimestamp* <tt>() -> $integer</tt>

 Get the timestamp of the file

 Returns 0 if no file, otherwise epoch seconds

 ---++ ObjectMethod *restoreLatestRevision* <tt>($user)</tt>

 Restore the plaintext file from the revision at the head.

 ---++ ObjectMethod *removeWeb* <tt>($web)</tt>

    * =$web= - web being removed

 Destroy a web, utterly. Removed the data and attachments in the web.

 Use with great care! No backup is taken!

 ---++ ObjectMethod *moveTopic* <tt>($newWeb,$newTopic)</tt>

 Move/rename a topic.

 ---++ ObjectMethod *copyTopic* <tt>($newWeb,$newTopic)</tt>

 Copy a topic.

 ---++ ObjectMethod *moveAttachment* <tt>($newWeb,$newTopic,$newAttachment)</tt>

 Move an attachment from one topic to another. The name is retained.

 ---++ ObjectMethod *copyAttachment* <tt>($newWeb,$newTopic)</tt>

 Copy an attachment from one topic to another. The name is retained.

 ---++ ObjectMethod *isAsciiDefault* <tt>() -> $boolean</tt>

 Check if this file type is known to be an ascii type file.

 ---++ ObjectMethod *setLock* <tt>($lock,$user)</tt>

 Set a lock on the topic, if $lock, otherwise clear it.

 $user is a wikiname.

 SMELL: there is a tremendous amount of potential for race

 conditions using this locking approach.

 ---++ ObjectMethod *isLocked* <tt>() -> ($user,$time)</tt>

 See if a twiki lock exists. Return the lock user and lock time if it does.

 ---++ ObjectMethod *setLease* <tt>($lease)</tt>

    * =$lease= reference to lease hash, or undef if the existing lease is to be cleared.

 Set an lease on the topic.

 ---++ ObjectMethod *getLease* <tt>() -> $lease</tt>

 Get the current lease on the topic.

 ---++ ObjectMethod *removeSpuriousLeases* <tt>($web)</tt>

 Remove leases that are not related to a topic. These can get left behind in

 some store implementations when a topic is created, but never saved.

 ---++ ObjectMethod *getStream* <tt>() -> \*STREAM</tt>

 Return a text stream that will supply the text stored in the topic.

 ---++ ObjectMethod *numRevisions* <tt>() -> $integer</tt>

 Must be provided by subclasses.

 Find out how many revisions there are. If there is a problem, such

 as a nonexistent file, returns 0.

 *Virtual method* - must be implemented by subclasses

 ---++ ObjectMethod *initBinary* <tt>()</tt>

 Initialise a binary file.

 Must be provided by subclasses.

 *Virtual method* - must be implemented by subclasses

 ---++ ObjectMethod *initText* <tt>()</tt>

 Initialise a text file.

 Must be provided by subclasses.

 *Virtual method* - must be implemented by subclasses

 ---++ ObjectMethod *addRevisionFromText* <tt>($text,$comment,$user,$date)</tt>

 Add new revision. Replace file with text.

    * =$text= of new revision

    * =$comment= checkin comment

    * =$user= is a wikiname.

    * =$date= in epoch seconds; may be ignored

 *Virtual method* - must be implemented by subclasses

 ---++ ObjectMethod *addRevisionFromStream* <tt>($fh,$comment,$user,$date)</tt>

 Add new revision. Replace file with contents of stream.

    * =$fh= filehandle for contents of new revision

    * =$comment= checkin comment

    * =$user= is a wikiname.

    * =$date= in epoch seconds; may be ignored

 *Virtual method* - must be implemented by subclasses

 ---++ ObjectMethod *replaceRevision* <tt>($text,$comment,$user,$date)</tt>

 Replace the top revision.

    * =$text= is the new revision

    * =$date= is in epoch seconds.

    * =$user= is a wikiname.

    * =$comment= is a string

 *Virtual method* - must be implemented by subclasses

 ---++ ObjectMethod *deleteRevision* <tt>()</tt>

 Delete the last revision - do nothing if there is only one revision

 *Virtual method* - must be implemented by subclasses

 ---++ ObjectMethod *revisionDiff* <tt>($rev1,$rev2,$contextLines) -> \@@diffArray</tt>

 rev2 newer than rev1.

 Return reference to an array of [ diffType, $right, $left ]

 *Virtual method* - must be implemented by subclasses

 !!!getRevision!!!

 ---++ ObjectMethod *getRevisionAtTime* <tt>($time) -> $rev</tt>

 Get a single-digit version number for the rev that was alive at the

 given epoch-secs time, or undef it none could be found.

 *Virtual method* - must be implemented by subclasses

 ---++ ObjectMethod *getAttachmentAttributes* <tt>($web,$topic,$attachment)</tt>

 returns [stat] for any given web, topic, $attachment

 SMELL - should this return a hash of arbitrary attributes so that 

 SMELL + attributes supported by the underlying filesystem are supported

 SMELL + (eg: windows directories supporting photo "author", "dimension" fields)

 ---++ ObjectMethod *getAttachmentList* <tt>($web,$topic)</tt>

 returns {} of filename => { key => value, key2 => value } for any given web, topic

 Ignores files starting with _ or ending with ,v

 ---++ ObjectMethod *stringify* <tt>()</tt>

 Generate string representation for debugging

 ---++ ObjectMethod *recordChange* <tt>($user,$rev,$more)</tt>

 Record that the file changed

 ---++ ObjectMethod *eachChange* <tt>($since) -> $iterator</tt>

 Return iterator over changes - see Store for details

 @

 1.3

 log

 @buildrelease

 @

 text

 @d4 1

 a4 1

 used from anywhere else. Base class of implementations of stores

 d23 5

 a50 6

 ---++ ObjectMethod *readMetaData* <tt>($name) -> $text</tt>

 Get a meta-data block for this web

 d57 1

 a57 8

 $TWiki::cfg{RCS}{WorkAreaDir}

 ---++ ObjectMethod *saveMetaData* <tt>($web,$name) -> $text</tt>

 Write a named meta-data string. If web is given the meta-data

 is stored alongside a web.

 d98 13

 d138 1

 a138 1

 ---++ ObjectMethod *restoreLatestRevision* <tt>($wikiname)</tt>

 a330 4

 sub _constructAttributesForAutoAttached

 as long as stat is defined, return an emulated set of attributes for that attachment.

 d343 11

 @

 1.2

 log

 @buildrelease

 @

 text

 @d14 1

 d16 1

 d24 1

 d35 1

 d41 1

 d47 1

 d78 1

 d107 1

 d121 1

 d140 1

 d150 1

 d156 1

 d162 1

 d168 1

 d196 1

 d209 7

 d278 1

 d298 1

 d338 1

 @

 1.1

 log

 @buildrelease

 @

 text

 @d124 1

 a124 1

 ---++ ObjectMethod *restoreLatestRevision* <tt>()</tt>

 d292 1

 d300 2

 d305 1

 d311 6

 @