-/* Checking for errors. */
-if (!is_writable (VAR_FILES))
- add_error (t('The file directory is not writable!'), VAR_FILES);
-
-if (!is_writable (VAR_LINKS))
- add_error (t('The link directory is not writable!'), VAR_LINKS);
-
-/* Check if the install.php script is still in the directory. */
-if (file_exists (JIRAFEAU_ROOT . 'install.php'))
- add_error (t('Installer script still present'),
- t('Please make sure to delete the installer script ' .
- '"install.php" before continuing.'));
-
-if (!has_error () && !empty ($res))
-{
- if ($res['error']['has_error'])
- add_error (t('An error occurred.'), $res['error']['why']);
- else
- {
- $link = $cfg['web_root'];
- $delete_link = $cfg['web_root'];
-
- if ($cfg['rewrite'])
- {
- $link .= 'file-'.$res['link'];
- $delete_link .=
- 'file-'.$res['link'].'-delete-'.$res['delete_link'];
- }
- else
- {
- /* h because 'h' looks like a jirafeau ;) */
- $link .= 'file.php?h='.$res['link'];
- $delete_link .=
- 'file.php?h='.$res['link'].'&d='.$res['delete_link'];
- }
-
- echo '<div class="message">'.NL;
- echo '<p>' . t('File uploaded! Copy the following URL to get it') .
- ':<br />' . NL;
- echo '<a href="'.$link.'">'.$link.'</a>' . NL;
-
- if ($time != JIRAFEAU_INFINITY)
- {
- echo '<br />' . t('This file is valid until the following date') .
- ':<br /><strong>' . strftime ('%c', $time) . '</strong>';
- }
-
- echo '</p></div>';
-
- echo '<div class="message">' . NL;
- echo '<p>' . t('Keep the following URL to delete it at any moment') . ':<br />' . NL;
- echo '<a href="' . $delete_link . '">' . $delete_link . '</a>' . NL;
- echo '</p></div>';
- }
-}
-