Finding a Truck Camper to be a happy camper

For the last two months, I am have been searching for a truck camper which will fulfill my requirements based on my lifestyle and camping needs. In this blog post, I am going to highlight some of the difficulties I have been through and maybe it will help somebody who has similar requirements or they are new to truck camping world or want to find one article which mentions it all.

Requirements;

I am looking for a truck camper which;

A low footprint (non-slide)
Dry bath
LP Generator
Backup camera
2-way power to the air conditioner
3-way power to the refrigerator
Keyless entry
Entertainment system

Believe it or not, I was not able to find a single manufacturer who has thought of the requirements mentioned above. A few days ago I was watching a YouTube, the video was about “how to choose your RV” and in the video, they mentioned that you will never RV which fulfills your requirements. You always have to compromise and I think the same applies to truck campers.

I am going to organize this blog post in 5 high-level buckets which are listed below;

Truck Camper Manufactures and Dealers
1. Will provide Website review
2. Will provide overall information manufacturers provide on their website.
3. Will provide best YouTube channel to find detail preview and review of their products.
Truck Camper Features and Limitations
Finding the right truck for your camper
Truck Camper Magazine Website Review & YouTube Channels which can help!
After Market Mods and Gadgets

Truck Camper Manufactures and Dealers

In my search, I found out that actually finding a truck camper is very difficult. The difficulty starts with finding the manufactures and their dealers. I was able to find following manufactures and I am going to review them based on their website, products descriptions, and features.

Lance Camper (Made in the USA):
Website: lancecamper.com
Website Rating on the scale of 5: 4
Product Description and Features Rating on the scale of 5: 4

Lance is very popular in the truck camper world, you can easily call them leaders of this industry. Everybody knows about lance; everybody sells lance. Dealers are available in every area within the USA. Their website is very informative guide both in the truck selection and the truck camper. Depending on what you are looking for Lance has a wide range of products. But what they are lacking on their website measurements of the bath. I had to contact the manufacturer to understand what are the measurements of the dry bath and wet baths you have on your various products. Their website is up to date and modern. Lance dealership are available all over the USA. I will recommend using the following YouTube channels to find the review of their products Camping World.

Northwood (Made in Canada):
Website: northwoodmfg.com
(more to follow)

Big Foot RV (Made in Canada):
Website: bigfootrv.com
(more to follow)

NuCamp RV (Made in Canada):
Website: nucamprv.com
(more to follow)

Posted on August 13, 2018 by Hassan Janjua in Miscellaneous Leave a comment

Export vimeo album to HTML table

I have VIMEO PRO account and its very difficult sometimes to copy paste videos titles and URLs to my website. I was trying to figure out a way to extract the video information from vimeo and get the list of all my videos under my vimeo channel. If you would like to achieve same functionality you can follow the following steps:

STEP # 1: CREATE AN ALBUM IN YOUR VIMEO ACCOUNT AND ORGANIZE ALL VIDEOS IN YOUR ALBUM

Go to https://vimeo.com/organizer/collections
Under organizer > Create new album and organize all videos in the newly created album
Get Album ID and save it (if you don’t know how to get album ID you can following instruction here -https://forum.livebooks.com/livebooks/topics/what_is_my_vimeo_album_id)

STEP # 2: DOWNLOAD AND UPLOAD VIMEO ADVANCE PHP API LIBRARY ON YOUR HOSTING

Download PHP API Library: https://developer.vimeo.com/apis/advanced#libraries
From that zip, upload “vimeo.php” and “index.php” to a folder called “vimeo” on the root of your website
Create a folder within “vimeo” called “cache” with permissions 777.
URL will be: www.YOURWEBSITE.com/vimeo/

STEP # 3: REGISTER YOUR WEB SITE AS AN API APPLICATION ON VIMEO

Login to your vimeo account, and register your website as a new “app” at http://www.vimeo.com/api/applications/new
Use the URL of your website as the “Application URL”. IMPORTANT: Enter the URL to the index.php you just uploaded as the “Application Callback URL”. (In my example, this would be http://www.YOURWEBSITE.com/vimeo/index.php)
If it’s your first time registering an app, you MAY have to wait for a human interaction to authorize the request.
Get your Consumer Key and Consumer Secret
Get YourOAuthAccessToken and YourOAuthAccessTokenSecret

<?php
require_once('vimeo.php');
$vimeo = new phpVimeo('ConsumerKey', 'ConsumerSecret');
$vimeo->setToken('YourOAuthAccessToken', 'YourOAuthAccessTokenSecret');

$albumID = 'YOUR_ALBUM_ID';


for ($x = 0; $x <= 17; $x++) { //x is the number of album pages you would like to retrieve 
    echo "<table><tr><th>Video Title</th><th>Vimeo URL</th></tr>";
    $result = $vimeo->call('vimeo.albums.getVideos', array(
    //Reference: https://developer.vimeo.com/apis/advanced/methods/vimeo.albums.getVideos
        'album_id' => $albumID,
        'page' => $x,
        'per_page' => '50',
        full_response => '1'
    ));
    $videos = $result->videos->video;
    
    foreach ($videos as $video) {
        echo "<tr><td>" . $video->title . "</td><td>" . $video->urls->url[0]->_content . "</td></tr>";
                
        
    }
    echo '</table>';
    
}

?>

<?php

require_once('vimeo.php');

$vimeo = new phpVimeo('ConsumerKey', 'ConsumerSecret');

$vimeo->setToken('YourOAuthAccessToken', 'YourOAuthAccessTokenSecret');

$albumID = 'YOUR_ALBUM_ID';

for ($x = 0; $x <= 17; $x++) { //x is the number of album pages you would like to retrieve

echo "<table><tr><th>Video Title</th><th>Vimeo URL</th></tr>";

$result = $vimeo->call('vimeo.albums.getVideos', array(

//Reference: https://developer.vimeo.com/apis/advanced/methods/vimeo.albums.getVideos

'album_id' => $albumID,

'page' => $x,

'per_page' => '50',

full_response => '1'

));

$videos = $result->videos->video;

foreach ($videos as $video) {

echo "<tr><td>" . $video->title . "</td><td>" . $video->urls->url[0]->_content . "</td></tr>";

}

echo '</table>';

}

Posted on February 14, 2015 by Hassan Janjua in PHP Leave a comment

How to disable the social plugins (such as following user and ‘like’ document) in Document Library for Alfresco 4.x?

Question:

How to disable the social plugins (such as following user and ‘like’ document) in Document Library for 4.x Enterprise Alfresco?

Solution:

1) Create a “share-config-custom.xml” in the following location
{Your_Alfresco_Installation_Folder}/tomcat/shared/classes/alfresco/web-extension
Note: Best practice is to copy and rename “share-config-custom.xml.sample” to “share-config-custom.xml”

2) Open “share-documentlibrary-config.xml” in the text editor from following location {Your_Alfresco_Installation_Folder}/tomcat/webapps/share/WEB-INF/classes/alfresco

3) Copy the <metadata-templates> section from “share-documentlibrary-config.xml”

<metadata-templates>
<!-- Default (fallback) //comment -->
<template id="default">
<banner index="10" id="lockBanner" evaluator="evaluator.doclib.metadata.hasLockBanner">{lockBanner}</banner>
<line index="10" id="date">{date}{size}</line>
<line index="20" id="description" view="detailed">{description}</line>
<line index="30" id="tags" view="detailed">{tags}</line>
<line index="40" id="categories" view="detailed" evaluator="evaluator.doclib.metadata.hasCategories">{categories}</line>
<line index="50" id="social" view="detailed">{social}</line>
</template>

<!-- Working Copies -->
<template id="isWorkingCopy">
<evaluator>evaluator.doclib.metadata.isWorkingCopy</evaluator>
<banner index="10" id="lockBanner" evaluator="evaluator.doclib.metadata.hasLockBanner">{lockBanner}</banner>
<line index="10" id="date">{date}{size}</line>
<line index="20" id="description" view="detailed">{description}</line>
</template>

<!-- Dictionary Models -->
<template id="dictionaryModel">
<evaluator>evaluator.doclib.metadata.isDictionaryModel</evaluator>
<banner index="10" id="lockBanner" evaluator="evaluator.doclib.metadata.hasLockBanner">{lockBanner}</banner>
<line index="10" id="date">{date}</line>
<line index="20" id="description" view="detailed">{description}</line>
<line index="30" id="dictionaryModel" simpleView="true">{modelActive label.modelActive}{modelName label.modelName}{modelDescription label.modelDescription}</line>
</template>

<!-- Replication Transfer Targets -->
<template id="transferTarget">
<evaluator>evaluator.doclib.metadata.isTransferTarget</evaluator>
<banner index="10" id="lockBanner" evaluator="evaluator.doclib.metadata.hasLockBanner">{lockBanner}</banner>
<line index="10" id="date">{date}</line>
<line index="20" id="description" view="detailed">{description}</line>
<line index="30" id="transferTarget" simpleView="true">{trx_enabled label.trx_enabled}{trx_endpointhost label.trx_endpointhost}{trx_endpointport label.trx_endpointport}</line>
</template>
</metadata-templates>

<metadata-templates>

<banner index="10" id="lockBanner" evaluator="evaluator.doclib.metadata.hasLockBanner">{lockBanner}</banner>

<line index="20" id="description" view="detailed">{description}</line>

<line index="40" id="categories" view="detailed" evaluator="evaluator.doclib.metadata.hasCategories">{categories}</line>

<line index="50" id="social" view="detailed">{social}</line>

</template>

<evaluator>evaluator.doclib.metadata.isWorkingCopy</evaluator>

<banner index="10" id="lockBanner" evaluator="evaluator.doclib.metadata.hasLockBanner">{lockBanner}</banner>

<line index="20" id="description" view="detailed">{description}</line>

</template>

<evaluator>evaluator.doclib.metadata.isDictionaryModel</evaluator>

<banner index="10" id="lockBanner" evaluator="evaluator.doclib.metadata.hasLockBanner">{lockBanner}</banner>

<line index="20" id="description" view="detailed">{description}</line>

<line index="30" id="dictionaryModel" simpleView="true">{modelActive label.modelActive}{modelName label.modelName}{modelDescription label.modelDescription}</line>

</template>

<evaluator>evaluator.doclib.metadata.isTransferTarget</evaluator>

<banner index="10" id="lockBanner" evaluator="evaluator.doclib.metadata.hasLockBanner">{lockBanner}</banner>

<line index="20" id="description" view="detailed">{description}</line>

<line index="30" id="transferTarget" simpleView="true">{trx_enabled label.trx_enabled}{trx_endpointhost label.trx_endpointhost}{trx_endpointport label.trx_endpointport}</line>

</template>

</metadata-templates>

4) Open “share-config-custom.xml” file in the text editor and paste the <metadata-templates> section from “share-documentlibrary-config.xml” to “share-config-custom.xml” file under following section

<!-- Document Library config section -->

<config evaluator="string-compare" condition="DocumentLibrary" replace="true">
<metadata-templates>
……
</metadata-templates>

<metadata-templates>

……

</metadata-templates>

5) While editing “share-config-custom.xml” file under <template id=”default”> section remove line <line index=”##” id=”social” view=”detailed”>{social}</line> .

6) Visit you Share application refresh Document library and you will notice all social plugins are disabled.

Posted on November 12, 2012 by Hassan Janjua in Alfresco, ECM Leave a comment

Function to export query or table to MS Excel

Following function exports data from a table or query to MS Excel.

Public Function Export2XL(InitRow As Long, DBAccess As String, DBTable As String) As Long
Dim cn As New ADODB.Connection      'Use for the connection string
Dim cmd As New ADODB.Command        'Use for the command for the DB
Dim rs As New ADODB.Recordset       'Recordset return from the DB
Dim MyIndex As Integer              'Used for Index
Dim MyFieldCount As Integer         'Store the number of fields or column
Dim ApExcel As Object               'To open Excel
Dim MyCol As String
Dim Response As Integer

Set ApExcel = CreateObject("Excel.application")  'Creates an object
ApExcel.Visible = False                          'This enable you to see the process in Excel
ApExcel.Workbooks.Add                            'Adds a new book.

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; DBAccess _
                      &amp; ";Persist Security Info=False;JET OLEDB:Database Password="
cn.Open

Set cmd.ActiveConnection = cn
DBTable = Replace(DBTable, "*'", "%'")
Set rs = cn.Execute(DBTable)
MyFieldCount = rs.Fields.Count

'Fill the first line with the name of the fields
For MyIndex = 0 To MyFieldCount - 1
    ApExcel.Cells(InitRow, (MyIndex + 1)).Formula = rs.Fields(MyIndex).Name   'Write Title to a Cell
    ApExcel.Cells(InitRow, (MyIndex + 1)).Font.Bold = True
    ApExcel.Cells(InitRow, (MyIndex + 1)).interior.colorindex = 36
    ApExcel.Cells(InitRow, (MyIndex + 1)).WrapText = True
Next

'Draw border on the title line
MyCol = Chr((64 + MyIndex)) &amp; InitRow
ApExcel.Range("A" &amp; InitRow &amp; ":" &amp; MyCol).Borders.Color = RGB(0, 0, 0)
MyRecordCount = 1 + InitRow

'Fill the excel book with the values from the database
Do While rs.EOF = False
For MyIndex = 1 To MyFieldCount
    ApExcel.Cells(MyRecordCount, MyIndex).Formula = rs((MyIndex - 1)).Value     'Write Value to a Cell
    ApExcel.Cells(MyRecordCount, MyIndex).WrapText = False                      'Format the Cell
Next
    MyRecordCount = MyRecordCount + 1
    rs.MoveNext
Loop
ApExcel.Visible = True

rs.Close

'Return the last position in the workbook
Export2XL = MyRecordCount

End Function

Public Function Export2XL(InitRow As Long, DBAccess As String, DBTable As String) As Long

Dim cn As New ADODB.Connection 'Use for the connection string

Dim cmd As New ADODB.Command 'Use for the command for the DB

Dim rs As New ADODB.Recordset 'Recordset return from the DB

Dim MyIndex As Integer 'Used for Index

Dim MyFieldCount As Integer 'Store the number of fields or column

Dim ApExcel As Object 'To open Excel

Dim MyCol As String

Dim Response As Integer

Set ApExcel = CreateObject("Excel.application") 'Creates an object

ApExcel.Visible = False 'This enable you to see the process in Excel

ApExcel.Workbooks.Add 'Adds a new book.

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBAccess _

& ";Persist Security Info=False;JET OLEDB:Database Password="

cn.Open

Set cmd.ActiveConnection = cn

DBTable = Replace(DBTable, "*'", "%'")

Set rs = cn.Execute(DBTable)

MyFieldCount = rs.Fields.Count

'Fill the first line with the name of the fields

For MyIndex = 0 To MyFieldCount - 1

ApExcel.Cells(InitRow, (MyIndex + 1)).Formula = rs.Fields(MyIndex).Name 'Write Title to a Cell

ApExcel.Cells(InitRow, (MyIndex + 1)).Font.Bold = True

ApExcel.Cells(InitRow, (MyIndex + 1)).interior.colorindex = 36

ApExcel.Cells(InitRow, (MyIndex + 1)).WrapText = True

'Draw border on the title line

MyCol = Chr((64 + MyIndex)) & InitRow

ApExcel.Range("A" & InitRow & ":" & MyCol).Borders.Color = RGB(0, 0, 0)

MyRecordCount = 1 + InitRow

'Fill the excel book with the values from the database

Do While rs.EOF = False

For MyIndex = 1 To MyFieldCount

ApExcel.Cells(MyRecordCount, MyIndex).Formula = rs((MyIndex - 1)).Value 'Write Value to a Cell

ApExcel.Cells(MyRecordCount, MyIndex).WrapText = False 'Format the Cell

MyRecordCount = MyRecordCount + 1

rs.MoveNext

Loop

ApExcel.Visible = True

rs.Close

'Return the last position in the workbook

Export2XL = MyRecordCount

End Function

Posted on November 12, 2012 by Hassan Janjua in SQL Server, Visual Basic Leave a comment

Delete all data in the all worksheets except first row in each sheet

Question:

How to delete all data in the all worksheets except first row in each sheet?

Answer:

Sub DeleteAllNotFirstRow()
Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        sh.Range("a2").EntireRow.Resize(sh.Rows.Count - 1).Delete
    Next
End Sub

Sub DeleteAllNotFirstRow()

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets

sh.Range("a2").EntireRow.Resize(sh.Rows.Count - 1).Delete

End Sub

Posted on November 12, 2012 by Hassan Janjua in Excel VBA Leave a comment

Insert values if not exist

Question:

How to INSERT values in MySQL table if they don’t exist?

Solution:

Following procedure will insert values in MySQL table “PatientProcedureCompleted”; if they do it will update “chart” value.

DELIMITER |

CREATE PROCEDURE `Process`
(
  IN  `variable1`        int,
  IN  `variable2`  varchar(20),
  IN  `variable3`         int
)
BEGIN

/* Procedure text */
IF NOT EXISTS(
SELECT * FROM Patients
WHERE xray = yes
AND Billed = yes
) THEN
INSERT INTO PatientProcedureCompleted(xray, Billed, chart)
VALUES(yes, yes, value);
ELSE
UPDATE PatientProcedureCompleted
SET chart = value
WHERE xray = yes
AND Billed = yes;
END IF;

END|

DELIMITER ;

DELIMITER |

CREATE PROCEDURE `Process`

(

IN `variable1` int,

IN `variable2` varchar(20),

IN `variable3` int

)

BEGIN

/* Procedure text */

IF NOT EXISTS(

SELECT * FROM Patients

WHERE xray = yes

AND Billed = yes

) THEN

INSERT INTO PatientProcedureCompleted(xray, Billed, chart)

VALUES(yes, yes, value);

ELSE

UPDATE PatientProcedureCompleted

SET chart = value

WHERE xray = yes

AND Billed = yes;

END IF;

END|

DELIMITER ;

Posted on November 12, 2012 by Hassan Janjua in MySQL Leave a comment

Autofit using Excel VBA

Question:

In excel we selected the entire worksheet and then do Format > Column -> Autofit selection and Format > Row -> Autofit

How we can do this in VBA?

Solution:

Cells.Select
Selection.Columns.AutoFit
Selection.Rows.AutoFit

Cells.Select

Selection.Columns.AutoFit

Selection.Rows.AutoFit

Posted on November 12, 2012 by Hassan Janjua in Excel VBA Leave a comment

Delete the entire row if the certain text is present in column

Question:

How to delete the entire row if the certain text is present in column?

Solution:

Following procedure will delete the entire row if the certain text is present in the column(s)

This example deletes the entire row if it finds “error” in column CD

Public Sub DeleteContaining()
Dim Row As Long
Application.ScreenUpdating = False
With ActiveSheet
For Row = .UsedRange.Row + .UsedRange.Rows.Count - 1 To .UsedRange.Row Step -1
If InStr(1, .Cells(Row, "CD") &amp; "", "error") &gt; 0 Then .Rows(Row).Delete
Next Row
End With
Application.ScreenUpdating = True
End Sub

Public Sub DeleteContaining()

Dim Row As Long

Application.ScreenUpdating = False

With ActiveSheet

For Row = .UsedRange.Row + .UsedRange.Rows.Count - 1 To .UsedRange.Row Step -1

If InStr(1, .Cells(Row, "CD") & "", "error") > 0 Then .Rows(Row).Delete

Next Row

End With

Application.ScreenUpdating = True

End Sub

Posted on November 12, 2012 by Hassan Janjua in Excel VBA Leave a comment

xPlore Tools

The following in the link to some useful tools for xPlore 1.0 or 1.1:

https://community.emc.com/docs/DOC-8922

Posted on June 22, 2012 by Hassan Janjua in Documentum, ECM Leave a comment

How to view template module positions in Joomla! 2.5?

In Joomla! 1.5.x we used to append ?tp=1 at the end of the URL (i.e. http://www.yourdomain.com/index.php?tp=1) to view the module positions of the current template. In Joomla! 2.5, its same but you need to enable “Preview Module Positions”.

Following steps will help you to enable “Preview Module Positions” option from “Template Manager Options” of Joomla! 2.5.

Login to Joomla! 2.5.x administrator section (i.e. http://www.yourdomain.com/administrator)
Click on “Extensions” > “Template Manager”
Under “Template Manager: Styles” click on “Options”
Under “Template Manager Options” > Enable “Preview Module Positions” and click on “Save and Close”
Under “Template Manager: Styles” click on the template icon to see the modules positions of the style you want to preview as shown in the screenshot below
Alternative way to view module positions is to append ?tp=1 to the end of your URL (i.e. http://www.yourdomain.com/index.php?tp=1)

When you are done previewing module positions, remember to set “Preview Module Positions” to disable. Its recommend to disable the ?tp=1 function for security reasons.

Posted on March 14, 2012 by Hassan Janjua in CMS, Joomla! Leave a comment

1 2 Next »