From: <de...@de...> - 2011-08-07 05:30:21
|
Author: PeterThoeny Date: 2011-08-07 00:30:14 -0500 (Sun, 07 Aug 2011) New Revision: 21907 Trac url: http://develop.twiki.org/trac/changeset/21907 Modified: twiki/trunk/BackupRestorePlugin/lib/TWiki/Plugins/BackupRestorePlugin/Core.pm Log: Item6631: Backup & Restore Utility - build date based backup filename Modified: twiki/trunk/BackupRestorePlugin/lib/TWiki/Plugins/BackupRestorePlugin/Core.pm =================================================================== --- twiki/trunk/BackupRestorePlugin/lib/TWiki/Plugins/BackupRestorePlugin/Core.pm 2011-08-07 05:05:48 UTC (rev 21906) +++ twiki/trunk/BackupRestorePlugin/lib/TWiki/Plugins/BackupRestorePlugin/Core.pm 2011-08-07 05:30:14 UTC (rev 21907) @@ -176,6 +176,14 @@ } +#================================================================== +sub _checkBackupState { + my( $this ) = @_; +#FIXME + my $inProgress = 1; + my $fileName = $this->_buildFileName(); + return( $inProgress, $fileName ); +} #================================================================== # LOW-LEVEL METHODS @@ -195,12 +203,16 @@ } #================================================================== -sub _checkBackupState { +sub _buildFileName { my( $this ) = @_; -#FIXME - my $inProgress = 0; - my $fileName = 'twiki-backup-2011-08-06-21-45.zip'; - return( $inProgress, $fileName ); + my( $sec, $min, $hour, $day, $mon, $year ) = localtime( time() ); + my $text = 'twiki-backup-'; + $text .= sprintf( "%.4u", $year + 1900 ) . '-'; + $text .= sprintf( "%.2u", $mon + 1 ) . '-'; + $text .= sprintf( "%.2u", $day ) . '-'; + $text .= sprintf( "%.2u", $hour ) . '-'; + $text .= sprintf( "%.2u", $min ) . '.zip'; + return $text; } #================================================================== |